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1, ABSTRACT 



THE RKflE/RHeL 0I5K FORMATTER PKOGHAM XS DESIGNtD TO WRiTE 

AND CHECK THE FORMAT Of THE COMPLETE DISK CARTHlDGEt 

ONUY STANDARD UEC SURFACE FORMAT IS AVAILABLE U.fe. SEC- 
TORS NUMBERED IN THE NORMAL NUMERICAL SEQUENCE 0, 1, 2, i, 
t, 5, ETC. 3, 



2, RESTRICTIONS 



THE RK6L CONTROL. i^MlCH CAN CONIROL UP TO 8 DRIVES, WILL NOT 
RUN WITH THE DWSE BUS ADAPTER. THE REASON FOR THIS STATEMENT 
IS THAT THE RKSL CONTRUL USES lOTa FOR EXTENDED DRIVES «-7 
WHICH IS NOT AVAILABLE ON THE UwBE. 



2.1 HARDWARE 



A, P0P-8/E,8/F,8/M OR a/A COMPUTER 

OTHER FAMILT OF 8 COMPATIBLt COMPUTER WITH NECESSARY 
0W8E BUS ADAPTER FOR RK8E CONTROL ONLY. 

8, AT LEAST 4K OF READ/wRITE MEMORY, AT LEAST 9K OF MEMORY 
IS NEEDED FOR OPERAHON OF THE CONSOLE PACKAGE. 

C, ASR-33 TELETYPE OR EQUIVALENT 

0, RKBE DISK CONTROL Ox RK8L DA8K CONTROL 
E. RK05J OR RKiaSP DISH 0RIVEC5J 

NOTEl THE RK05r'S DRIVE IS CONaiUERED AS TWO SEPARATE 
UNITS. WHEN ANSWERING ALL QUESTIONS EACH SERPAHATE UNIT 
MUST BE SPECIFIEOI DSKiO?, OSKl?, DSK2?, ETC, 

Z,Z PROGRAM STORAGE 



THE PROGRAM UTILIZES OK OCCUPIES LOCATIONS 0i«0U TO 
4177 OF THE CURRENT FIELD. 

3, PRELIMINARY PROGRAMS 



THE FOLLOWING PROGRAMS SHOULD BE RUN IF THE FORMATTER fROGHAM 
FAILS TO OPERATE CORRELTLYl 

ALL BASIC AND EXTENDED MEMORY UIAGNOSTICS 

FOR THE RK8E CONTROLjRUN THE RK8E DISKLESS CONTROL TEST 
AND THE RK8E DRIVE CONTROL TEST. 

FOR THE RK8L CONTROL»RUN THE RK8L INSTRUCTION TEST, 

OPERATOR AND/OR PROGRAM ACTION 



«,! STANDARD TE8T PROCtOURt 



A, LOAD THE PROGRAM INTO ANY R/W MfcMORY BANK USING THE 
STANDARD 8INARV LOAOER TECHNIQUE. 

B, TO RUN THE PORMATTEH PROGRAM, FOLLOW THE PROCtDUKt IN 
SECTION 4.4. 



4,2 RK05J DRIVE CAHTRIDGE MOUNTING PMOCEDUHE 

THE FOLLOWING IS THE CORRECT CARTRIDGE MOUNTING PROCtOURE 
FOR THE RK05J UISK DRIVE. ANY UEVIATION ENCOUNTERED UUHING 
THIS PROCEDURE WILL BE C0N3IDEKE0 AN ERROR CONDITION, 

A, SET SWITCH LABELED "RUN/LOAU" TO THE "LOAD" POSITION, 

B, TURN AC POWER ON, 

C, VERIFY THAT LIGHT LABELED "fWR" IS ON, 

D, WAIT FOR LIGHT LABELED "LOAO» TO COME ON, 

E, VERIFY THAT LIGHTS LABELED "ROY", "ON CYL"» "FAULT", 
"WT", AND "HD» ARE OFF. 

F, OPEN ACCESS DOOH, 

G, INSERT CARTRIDGE, 
H, CLOSE ACCESS DOOR. 

I, SET SWITCH LABELED "RUN/LOAD" TO THE "RUN" POSITION, 

J, WAIT FOR LIGHTS LABELED "ROT" AND "ON CYL" tO COMt ON. 

K, TOGGLE SWITCH LABELED "WT PKQT" AND VERIFY THAT THE LIGHT 
LABELED "WT PROT" GOES ON AND OFF. 

U, TOGGLE SWITCH LABELED "WT PKQT" UNTIL LIGHT LABELtD "WT PROT" 
GOES OFF, 

M, VERIFY That lights LABELED "FAULT", "WT", "KD", AND "LOAD" 
ARE OFF, 

0,3 RK05F DRIVE SETUP PROCtOURE 



THE FOLLOWING IS THE CORRECT OKIVE SETUP PROCEDURE 

FOR THE RKBSF DISK DRIVE, ANY DEVIATION ENCOUNTERED OUNING 

THIS PROCEDURE WILL BE C0N3IDEKED AN ERROR CONDITION. 

A, SET SWITCH LABELED "RUN/LOAO" TO THE "LOAD" POSITION, 

B, TURN AC POMtR ON. 



C, VERIFY TH4T LIGHT UABELEO "fWK" IS ON, 

0, WAIT FOH LlSHT LABeuEO "LOAU" TO COME ON. 

E, VERIFY THAT LIGHTS LABELED "ROY", "ON CYL"# "FAULT", 
"WT", AND "WD" ASfc OFF, 

F, SET SWITCH LABELED "HUN/LOAU" TO THE "Run" POSITION, 

G, WAIT FOR LIBHTS LABtLEO "ROT" AND "ON CYL" 10 COHt ON, 

H, TOGGLE SWITCH LABELtO "WT PKOT" AND VERIFY THAT TH6 LIGHT 
LABELED "WT PROT" SOES ON AND OFF. 

1. TOGGLE SWITCH LABELtO "WT PKQT" UNTIL LIGHT LABELED "WT PHOT" 
GOES OFF, 

J, VERIFY THAT LIGHTS LABELED "FAULT", "WT", "KD", AND "LOAD" 
ARE OFF. 



^,^^ FORMAT PROGRAM 



A, MAKE HEADY ALL DRIVES TO BE FORMATTEOI 

FOR RK05J DHIVES USt THE RKIflS DRIVE MOUNTING PROCEDURE 
REFER TO SECTION H,i, 

FOR RKaSF DRIVES USt THE RKWS ORIVE SETUP PKOCEDUHE 
REFER TO SECTION «,i, 

B, SET SWITCH LABELED "HUN/LOAO" TO THE "LOAD" POSITION ON 
ALL DRIVES NOT 8E1NS FORMATrED, 

C, SET THE SWITCH REGISTER TO 1^2810 AND PRESS LOAD AOURtSS. 

D, SET THE SWITCH REGISTER TO 0000. 

E, IF IT IS DESIRED TO CHANGE IHE lOT DEVICE CODES wijHlN 
THE PROGRAM (THEY AHfc NORMALLY X74XJ, SET SWITCH weSISTtR 
BIT 11 TO A "1". 

F, IF CHANGE lOT COOES WAS SELtCTED, SET SWITCH REGISTtR 
BITS 3 TO 8 TO THE UESIRED lOT DEVICE CODE. 

G, PRESS KEY START (KEr START IS KEY CLEAR ANO THEN KEY 
CONTINUE ON A PDP8/t, PDPS/I-, OR PDP6/M) , IF SELECTING A 
PDP8/A CPRE8S INIT AND THEN PRESS RUNJ , IF SELECTtD, 

ALL lOT DEVICE CODES WITHIN THE PROGRAM WILL BE CHANGED, 
THE TTY WILL TYPE THE FOLLOWING PROGRAM NAMt, INFORMATION, 
ANO QUESTION, 

RK8E/RK8L DISK FORMATTER PROGRAM 



FOR ALL QUeSTIUN» ANSWtR 
FORMAT DISK 0? 



Y FOR YES OR N fOR NO, 



H, IF THE OPERATOR OESiRES TO fORHAT DISK Z, TYPE Y KOH YtS, 
OTHERWISE. N FOR NO, ON THE TTY KEYBOARD, THE FOLLOWINS 
QUESTION WILL THEN BE TYPED ON THE TTY, 

FORMAT DISK IT 

I, IF THE OPERATOR OESiRES TO FORMAT DISK J, TYPE Y fOH YtS, 
0THERMI9E, N FOR NO, ON THE TTY KEYBOARD, THE FOLLOWING 
QUESTION WILL THEN BE TYPED ON THE TTY, 

FORMAT DISK 2? 

J, IF The operator desires to FORMAT DISK 2, TYPE Y KOH YES, 
OTHERWISE, N FOR NO, ON THE TTY KEYBOARD, THE F0LL0WIN6 
QUESTION WILL THEN t>E TYPED ON THE TTY. 

FORMAT DISK 31 

K, IF THE OPERATOR DESIRES TO fOHMAT DISK 3, TYPE Y FOK YES, 
OTHERWISE, N FOK NO, ON THE TTY KEYBOARD, THE FOLLOWINS 
QUESTION WILL THEN BE TYPED ON THE TTY, 



FORMAT DISK «t 

L, IF THE OPERATOR OESiRES TO CORMAT DISK 4, TYPE Y I'OH YtS, 
OTHERWISE, N FOR NO, ON THE TTY KEYBOARD, THE FOLLOWINS 
QUESTION WILL THEN BE TYPED ON THE TTY, 

FORMAT DISK 5T 

M, IF THE OPERATOR DESIRES TO fORMAT DISK 5, TYPE Y fOK YtS, 
OTHERWISE. N FOR NO, ON THE TTY KEYBOARD, THE FOLLOWING 
QUESTION WILL THEN bE TYPED ON THE TTY, 



FORMAT DISK 67 

N, IF THE OPERATOR DESIRES TO FORMAT DISK b, TYPE Y FOR YtS, 
OTHERWISE, N FOR NO, ON THE TTY KEYBOARD, THE FOLLOWINS 
QUESTION WILL THEN BE TYPED ON THE TTY, 

FORMAT DISK 77 

0, IF THE OPERATOR OESiRES TO FORMAT DISK 7, TYPE Y FQK YtS, 
OTHERWISE, N FOR NO, ON THE TTY KEYBOARD, THE FOLLOWING 
QUESTION WILL THEN BE TYPED ON THE TTY, 

ARE YOU SURE7 

P, TYPING N FOR NO WILL RESULT IN REPEATING ALL THE PRtVIOUS 
QUESTIONS, TYPINC Y FOR YESi WILL RESULT IN EXECUTIUN 
OF THE OPERATION SELECTED, 

Q, PROGRAM EKECUTION 19 APROX, S0 SECONDS PER DISK DWIVE. 
AFTER ALL DISKS SELECTED HAVE BEEN FORMATTEU AND CHtCKtU 
THE TTY WILL TYPE THE FOLLOWING PASS COMPLETE MESSAUfc AND 



QUESTION, 

RKBE/RHBL DISK FORMATTtH PASS COMPLETE 
FORMAT SAME DI8KCS) AGAIN? 

R. IF THE OPERATOR OESiHES TO KEPgAT THE OPERATION StLtCTEl), 
TYPE r FOR YES. TYPING N FOK NO WILL RESULT IN A WtPEAT 
OF THE INITIAL STARf-UP QUESTIONS, 

4,5 SWITCH REGISTER SETTINGS 

SWRUae 00 NOT CHANGE lOT DEVICE COOES 

SWRU'l CHANGE lOT DEVICE CODES 

SHR3-8 DESIREU lOT DEVICE CODE, 

5, ERRORS 



WHEN A RECOVERABLE ERRUH OCCUwS The TTY WILL PRINT 
AN "ERROR HEADER" AND tRRQR INI^ORMATION PERTAINING 
TO THE FAILURE. 

POSSIBLE ERROR HEADERS ARE AS FOLLOWS, 

DISK DATA ERROH 
READ STATUS ERROR 
WRITE STATUS ERROR 
RECALIBRATE STATUS ERROR 

AFTER THE ERROR HEADER MENTIONtQ ABOVE IS TYPEU THE TTV 
WILL PRINT SOME OF THE FOLLOWING ERROR INFORMATION PtK» 
TAINING TO THE FAILURE, 

PC: PROGRAM LOCATIUN OF FAILURE 

GOJ EXPECTED INFORMATION 

EXI EXTENDED DRIVE BIT 

CMl SOFTWARE COMMAND REGISTER 

STI CONTENTS OF STATUS REGiST£K 

DAI SOFTWARE CYLINDER, SURCACE, AND SECTOR REGISTER 

CA: INITIAL CURRENT ADDRESS 

ADi ADDRESS OF DATA BREAK 

OTJ DATA FOUND DURING DATA BREAK 

AFTER THE ERROR INFORHATION IS TYPED THE TTY WILL TYRE ONE 
OF THE FOLLOWING QUESTIONS ASKING THE ERROR RECOVERT OESIRED. 

A, IF THE ERROR WAS A KtCALIBRATE ERROH THE FOLLOWING UUESTIUN 



WILL B6 TYPED. 

TRY TO RECALIBKATE S*MC DISK AGAIN? 

TYPING A Y FOR YES "ILL RESULT IN A REPEAT UF THE Ht- 
CALIBRATE SEQUENCE UN THE DASH IN ERROR, TYPING N FUR NO 
WILL RESULT IN PRDGKE38ING 10 THE NEXT AVAILABLE UISK. 

B, IF THE ERROR WAS A WRITE ERKQR THE FOLLOWlNtt QUESTIUN WILL 
BE TYPED, 

TRY TO FORMAT SAME CYLINUEH AGAIN? 

TYPING Y FOR YES WIUL RESUL ' IN A REPEAT OF THE WKITE 
SEQUENCE ON THE CURRENT CYLINDER, TYPING N FOR NO WILL 
WILL IN PROGRESSING TO THE NEXT SEQUENCIAL CYLINDER, 

C, IF THE ERROR WAS A HEAD OR CHECK ERROR THE FOLLOWING 
QUESTION WILL BE TYKED, 

TRY TO CHECK SAME CYLINDER AGAIN? 

TYPING A Y FOR YES WILL RESULT IN A REPEAT IN THE 

READ AND CHECK SEQUENCE ON THE CURRENT CYLINDER, TY^'ING 

A N FOR NO WILL RESULT IN PHOGRfcSSING TO THE NEXT SbQUtNCIAL 

CYLINDER. 



6, PROGRAM DISCRIPTION 

THE FORMATTING IS ACTUALLY A FUNCTION OF THE RK8E OR RK6L 
CONTROL AND DRIVE LOGIC, THE PROGRAM SIMPLY WRITES OAT* ON 
EVERY SECTOR IN THE "WKITE ALL" MODE, THEN CHECKS THt 
DATA IN SUCH A WAY IN [ME "REAU DATA" MODE AS TO 
VERIFY THAT THE HEADER WORDS WKITTKN ON EVERY SECTOR ARE 
ALSO CORRECT, THE "REAU DATA MODE" AUTOMATICALLY PCRI-ORMS 
A CHECK HEADER FUNCTION, 

THE FIRST TWO WORDS OF EVERY StCTOR ARE SET TO THE ABSULUTt 
DISK AODRESSCI,E, COMMAND REGISTER BITS 9-U AND CYLINUER, 
SURFACE, AND SECTOR BUS 0-U, RESPECTIVELY) AND THE REMAINDER 
OF THE DATA AREA TO ALL ZEROS WHEN THE DATA IS WRITTtN, ONLY 
THE FIRST TWO WORDS OF EVERY StCTORCI.E, THE AUORESSiNU 
INFORMATION) ARE CMECKtD WHEN UATA IS READ IN THE "WtAU 
DATA" MODE, 

7, APT-8 HOOKS 
r,l DESCRIPTION 

TWO INTERFACES HAVE BEtN PROVIDED WHICH ALLOW THIS DIAGNOSTIC 
TO RUN UNDER THE STANDARD APT«» SYSTEM. THESE INTERFACtS ARE: 



1, TIMING INTEKFACe 

2. ERROR INTERFACE 

EACH WILL 9E ExPLAINfcO IN DETAIL. 
1,i SETUP 



ONLY HARDWARE CONFIGURATION WQ«0 i, ADDRESS 82. 

NEED BE ESTABLISHED, THE FOLLOWING INFURHATION MUST BE 

INOICATtOI 

1, SINGLE OR MULTIPLE DRIVE TESTING, 

2, DRIVE OR DRIVES TO 8E TESTED, 

3, DIAGNOSTIC RUNNING UNDER API-8, 

IF SINGLE DRIVE TESTING BIT 5 OF ADDRESS 22 MUST BE StT 

TO A ONE (1) WITH BITS 6-U CONTAINING THE DRIVE TO BE TESTED, 

IF MULTIPLE DRIVES ARE TO BE DUNt BIT 5 MUST BE SET TO A 

ZERO Ca) AND BIT b-ll CONTAINING THE HIGHEST NUMBER DRIVE 

TO BE TESTED. WHEN MULTIPLE DRIVE TESTING ONLY A SPECIFIC 

NUMBER OF DRIVES CAN BE INDICATED, THE PROGRAM ASSUMES THE DRIVES 

ARE TO BE DONE BEGINNING WITH DRIVE ZERO C0) AND FINISHING 

WITH THE HIGHEST DRIVE INDICATED, IF MULTIPLE DRIVES OTHER 

THAN CONSECUTIVELY NUMBERED DRIVES BEGINNING WITH o«lVt ZERO (0) 

ARE TO BE DONE, THEY MUST BE DUNt AS SINGLE DRIVES AND 

TESTED INDEPENDENTLY, 

THE PROGRAM ALLOWS ONLT DRIVES ZERU (0) THROUGH SEVEN ITJ 
TO BE TESTED AT THIS TIME, 

BIT ZERO OF ADDRESS Zi MUST BE SET TO A ONE TO INDICATE 
THAT THE PROGRAM WILL RUN UNDEK APT-8, 

NOTE! IT SHOULO BE NOTED AT THIS TIME THAT WHILE RUNNING 
UNDER APT-8 THE HARDWARE SWITCH REGISTER IS INOPERATIVE, 
ONLY THE HALT AND SINGLE STEP SWITCH wILL EFFECT THE PROGRAM 
RUN, 



7,3 APT-8 INTERFACES 
7,3,1, TIMING 



APT-8 IS NOTIFIED UF PROGRAM RUN BETWEEN ,2 SEC 

AND 2,0 SEC ON A 1,2 MICROSECOND MEMORY CYCLE, THIS WILL ALLOW 
THE DIAGNOSTIC TO RUN WITHOUT CAUSING AN APT-8 TIMEOUT ERROR 
IF THE DIAGNOSTIC IS TU BE RUN ON THE SLOWER MUS memury. 



7,3,2, ERRORS 



ONLY THE ERROR PC IS REPORTED TO APT-8 

SYSTEM, ERRORS WHICH CAUSE A PROGRAMMED HALT CAUSE A TIMEOUT 
ERROR, IF A PRUGRAMMED HALT SHUULD OCCUR, THE ERROR PC WILL 
APPEAR IN THE AC ON THt DEVICE UNDER TEST, PROGRAMMED MALTS 
ARE EXPLAINED EARLIER IN THIS DOCUMENT, 



a, PROGRAM tISTINti 

9, CONSOLE PACK/kGt AOUeNOUM 

9,1 DESCRIPTION 

THE CONSOLE PACKAGt MAS BEEN AUDED TO THIS OIAttNOSTIt- TO ALLOW 

THE PROGRAM TO HUN WITH NO HARUWARE SWITCH REGISTER ANU TU 

HAVE COMMUNICATIONS WirH THE DIAGNOSTIC VIA A TERMINAL. TMt 

DIAGNOSTIC CAN BE RUN XN TWO MODES WITH THE CONSOLE 

PACKAGE . I) RUNNING WITH THE CONSOLE PACKAGE ACIlVt - 

THIS ALLOWS THE OPERATOR CONTROL OK THE DIAGNOSTIC TMROUGM 

THE TERMINAL. THE DIAGNOSTIC WILL ASK FOR THE VALUE OF THE PSEUDD 

SWITCH REGISTER, BEFORE CONTINUING WJTH EXECUTION OF IHt 

DIAGNOSTIC. ALL ERRORS AND PASS COMPLETES WILL BE PRINTED AT 

THE TERMINAL. NO HALTS WILL BE EXECUTED. 

a) CONSOLE PACKAGE NOT ACTIVE-fHlS WILL RESULT IN THE 

NORMAL STANDALONE OPERATION OF THfc PROGRAM AS UISCRIBEO IN 

SECTIONS 1 THROUGH 8 OF THIS DUCUMENT, 

9,2 RESTRICTIONS 



1) RUNNINU THt CONSOLE PAUKAGt REQUIRES THAT THC 
P8EUD0 SWITCH REGISTER BE USED. 

2) ONCE RUNNING THE CONSOLE PACKAGE NONACriVE AND 

NOW DESIRE TO RUN IT ACTIVE, ONE MUST RELOAD THE OIAUNOSTIC 
AND INITIALIZE FOR A ACTIVE CONSOLE PACKAGE, 



9,3 INITIALIZATION 



FOR A ACTIVE CONSOLE PACKAGE 



1.) SET LOCATION 21 BITa»B TO INDICATE USE OF PStUUO SWITCH 
REGISTeR, 

2.) SET LOCATION 2c! BIT3«l TO INDICATE CONSOLE PACKAGE ACTIVE, 

FOR A NON ACTIVE CONSOLE PACKAbE 

l.J SET LOCATION 21 BIT0»1 TO INDICATE NOT TO USt PSEUUO 
SWITCH REGISTER, BUT TU USE HARDWARE SWITCHES, 

2,) SET LOCATION 2c! BIT3«0 TO INDICATE CONSOLE PACKAGE NOT 
ACTIVE. 

9,4 CONTROL CHARACTERS 



CONTROL CHARACTERS ARE USED TO GiVt THfc OPERATUR THE 
ABILITY TO PERFORM THE FOLLOWING FUNCTIONS, 
NOTEJ THE PROGKAM WILL RESPONU TO THE CONTROL 
CHARACTER IN FIVE C5) SECONDS OR LESS, 



CONTROL C 



CONTROL R 



CONTROL E 



CONTROL L 



CONTROL D 



CONTROL 3 



CONTROL 



THIS WILL 8TARI THE LOADER THAI IS 
IN LOCATION 76lfl0, 



THIS WILL RESTART THE PROGRAM AND 
REASK THE SWITCH REGISTER QUESflON AS 
DESCRIBED IN SECTION 9.6, 



THIS WILL CONTINUE THE PROGRAM FROM 
AN EKRUR IF ALLOWED BY THE DIAGNOSTIC 
OR FROM A WAITING STATEMENT, 



THIS WILL SWITUM THE TERMINAL MESSAGES 

FROM TME DISPLAY TO A LINE PRINTER, 

TO RESTORE THE MESSAGES ON THE TERMINAL 

CONTROL L MUST BE TYPED AGAIN, IF 

NO PRINTER IS AVAILBLE AND CONrWUL L 

IS TYPED TME RESULT WILL BE THAT THE 

CONSOLE PACKAGE WILL WAIT FOR CONTROL C OR R, 

THE CONTROL L WILL OUTPUT TO TME LINE 

PRINTER AND THE PHUGRAM WILL 

ATTEMPT TO CONTINUE AS IF A CONTROL E 

WAS TYPED IN, 



THIS WILL ALLOW THE ABILITY TO CHANGE 
THE SWITCH REGISTER DURING PROGRAM 
OPERATION, TYPING THIS CHARACTtR WILL RESULT 
IN AN INTERIGAIION OF THE SWITCH REGISTER 
QUESTION AS DESCRIHED IN SECTION 9.6, 



THIS WILL STOP PROGRAM EXECUTION AND WAIT IN A 
LOOP FUR A CONIINUE, THE ONLY WAY TO CONTINUE 
WILL BE TO TYPE A CONTROL Q, R OR C , 
THIS IS A NONPRINTING CHARACTER. 



THIS 19 TO CONTINUE A PROGRAM AFTER A CONTROL 
S IS TYPED, THIS IS A NONPRINTING CHARACTER, 



9.5 



WA.ITING MESSAGE 



THE WAITING MESSAGE IS USED TO ALLOW THE OPERATOR TIME 
TO MAKE A DECISION A3 TO WHAT CONTROL CHARACTER 



TO TYPE, THIS MESSAGE HAY *PPE*H AT THE END 

OF PASS MESSAGE IF THE MAI.T ON PASS BIT IS SET.TME CONTROL 

CHARACTERS MAY NOrt BE U3E0 TO f'EKf^ORM THE NEEDED FUNtTiON. 

THE WAITING MESSAGE MAT BE PRINTED AFTER A ERROR MESSAliE 
IF THE HALT ON ERROR BIT IS SEI.MtRE AGAIN THE CONTHUL 
CHARACTERS MAY BE USED. 

THE WAITING MESSAGE mat BE PRINTED IF OPERATOR INTERVENTION 
IS REQUIRED. 

9,6 SWITCH REGISTER MESSAGE 



THIS MESSAGE IS USED TU SETUP THE P5CU00 SWITCH REGISTER 
BEFORE PROGRAM EXECUTION TAKES PLACE, THE SWITCH REGISTER 
IS SETUP WHEN THE FOURTH CHARACTER IS ENTERED OR A CARRIAGE 
RETURN IS TYPED 



UNDER SCORING INDICATES OPERATUR RESPONSE 
9,7 END OF PASS 



THE NORMAL PROGRAM PASS COMPLEfE AS DESCRIBED IN SECTION 
4,4 IS USED. 



9,S ERRORS 



THE STANDARD ERROR REPORTS AS 0ESCRI8ED IN SECTION 5 
OF THIS DOCUMENT WILL 8E USED, 

9,9 SWITCH REGISTER SETTINGS 



THE STANDARD SWITCH SETTINGS AS DESCRIBED IN SECTION 4.b 
OF THIS DOCUMENT WILL BE USED, 



9,10 PARAMETER CONTROL WORDS 



THE CONSOLE PACKAGE UStS THE LOCATIONS 20 21 Ze FOR THE 
FOLLOWING PURPOSES. 

LOCATION 20 

PSEUDO SWITCH REGISTER 



LOCATION 21 

HAPDWA«fc lOENTIFlEK I 

LOCATION 22 

HARDWARE lOENTIFIEN 2 



LOCATION 0021 


BIT 


OCTAL VALUt 





4000 


I 


2000 


2 


1000 


3 


400 


4 


200 


5 


100 


6 


40 



FUNCTION WHEN 

USE PStUDO SWITCHES 

NO OPTION I 

NO OPTION 2 

NO 8A SIMULATOR 

NO OPTION SIMULATOR 

NOT ON 8A XOR 

NOT POKB-E TYPE CPU 



FUNCTION WHEN 1 

USE HAKOWAKE SWITCHES 
MAS OPTION I 
HAS UPTION 2 
HAS OA 8IMULAT0H 
MAS UPTION SIMULATOR 
ON 8A XQK 
P0P8-E TYPt CPU 



T-n 

LOCATION 0022 

BIT OCTAL VALUE 



BA MEMORY SIZE EX, IK.B0 

2Kaltfl 

7Kal06 

32K-31 



JUNCTION WHEN 



FUNCTIUN WHEN I 






4000 


NOT ON ACT8A LINE 


ON ACT 8A LINE 


1 


2000 


NOT ON ACT BE LINE 


ON ACT BE LINE 


2 


1000 


NOT YEI OEFINEO 




3 


400 


DEACTIVE CONSOLE 
PACKAGt 


ACTIVE CONSOLE 
PACKAGE 



9,11 



LOCATION CHANGES 



THE FOLLOWING LOCATIONS CAN BE CHANGED TO MEET THE SPECIFIC 
NEED FOR MODIFICATION UF THE DIAGNOSTIC. 



3637 



IS THE LOCATION 3BT FOR THE NUMBER 01* 

FILLER CMARACTtRS AFTER A CRLF SET Tu FOUR (4J 



/RK8t/RKS|. DISK FORHiTTER PROSNtni HD-'a-OHRKO-D 



PtllU VtHiA 2i-FEB>7T 



PASEi eei« 







/RKSC/KKtU DISK 


FORMAT' 






/ntlNDtC-eS-DHRKD-D-O 
/ 




6740 


/ 
DU9C>6740 






6741 


03ltP'6r4t 






6792 


DCUR*6M2 






6743 


0I.<IS>6743 






6744 


DLC<'6r44 






6745 


0R5T"6r45 






6746 


DLDC>6M6 






6747 


DM4NF6M7 
/ 
LDSC'JnS I 






4446 


>XLD9C 




4430 


IOTCMN"J«S I 


XCIANS 




4431 


LOUTRK.JMS I 


XHRTRK 




4432 


REDOSK'JMS ! 


«RUTR« 




4433 


RECtL'JHS I 


XRtSTR 




4434 


RECEIViJMS ! 


XHAIT 




4435 


KIUBUFIJMS I 


XKLBUF 




4437 


CRRORijnS I 


XERRO 




4440 


RDST4T>JMS I 


XRU8T 




4444 


LDtOD^JHS I 


XLDAO 




4441 


DSKSKPljnS I 


XSDKP 




4442 


UDCHDiJMS I 


XLDCM 




4443 


UDCUR>JHS I 


XLUCA 




444S 


CLR4LLPJNS I 


XCIOR 




4447 


PRNTER>JMS I 


XPKN 




4450 


OCTEL«JNS I 


XFROCT 




4451 


THQCTajnS I 


XTOCT 




4436 


TYPE'jnS I 


XPRINT 




4452 


CflLF'jnS 1 


XCRLF 




4424 


iPTaA'JMS I 


XAPTS 




4425 


TIME'jnS I 


XTIME 




4427 


TICK«Jna 1 


XTICK 




4426 


KlERRO'jnS I 

/ 

• 

/ 

304 


XAERRO 




0000 




idiZ 


0304 




aasi 


5001 


5001 




aaaa 


0002 


0002 




ZI9I93 


0003 


0003 
/ 

• 10 
/ 

1UTO10, 
/ 

lUTOUi B 
/ 

>20 
/ 

0000 






00 U 




enia 


0000 




eeu 


0000 






0020 




9020 


0000 




0021 


4000 


4000 




0022 


0000 


0000 





FORMATTER PROSRANI PID>«6>DHRKD>D 



/LOAD SKCTOR COUNTER 

/SKIP UN TRANSFER DONE OR ERROR 

/CLEAR DISK CONTROU LOSIC 

/LOAU ADDRESS AND GO 

/I.OAU CURRENT ADDRESS 

/READ STATUS REGISTER 

/LOAD COMHAND REGISTER 

/LOAD MAINTENANCE 



/PSeUDD SRITCH REGISTER 
/CONTRUL HORD 1 
/CONTRUL HORU 2 



/RK8t/RK8L DISK FORMATTER PROGKAMI MO-08-DMRKO-O 



0023 


0000 




0000 


0024 


1125 


XAPTS, 


ARTS 


0025 


1557 


XTIME, 


KTIME 


0026 


1600 


XAtRRO, 


AERRO 


0027 


1530 


XTICK, 


KTICK 


0030 


1463 


XCMANG, 


CHANG 


0031 


0600 


XWRTRK, 


WRTTRK 


0032 


1000 


XRDTRK, 


REOTRK 


0033 


1400 


XRE5TR, 


RE8T0R 


0034 


1327 


XWAIT, 


WAIT 


0035 


0752 


XKLBUF, 


KLBUF 


0036 


1312 


XPRINT, 


PRINT 


0037 


0436 


XERRO, 


ERRO 


0040 


0671 


XRU5T, 


RDST 


0041 


0740 


XSOKP, 


SOKP 


0042 


0720 


XLDCM, 


LOOM 


0043 


0700 


XLDCA, 


LDCA 


0044 


0711 


XLUAD, 


LOAD 


0045 


0745 


XCLOR, 


CLOR 


0046 


0733 


XXLOSC, 


XLDSC 


0047 


1252 


XPRN, 


PRN 


0050 


1227 


XFROCT, 


FROCT 


0051 


1200 


XTOCT, 


TOCT 


0052 


1215 


XCRLF, 


UPONE 


0053 


2201 


XLOTRK, 


LOTRK 


0054 


2200 


XMITRK, 


HITRK 


0055 


2200 


8GNSUF, 


WRK8UF 


0056 


0000 


AMOUNT, 





0057 


0000 


SRITCM, 





0060 


0003 


Ke003, 


0003 


0061 


0004 


K4, 


4 


0062 


0007 


K0B07, 


0007 


0063 


0040 


K0040, 


0040 


0064 


7465 


M313, 


•313 


0065 


0277 


KB277, 


0277 


0066 


0200 


K0200, 


0200 


0067 


0260 


K0260, 


0260 


0070 


4000 


K400e, 


4000 


0071 


7735 


K7735, 


7715 


0072 


7760 


K7760, 


7760 


0073 


0400 


K0400, 


400 


0074 


0037 


K0e37, 


0037 


0075 


6201 


KCDF, 


CDF 


0076 


7774 


M4, 


• 4 


0077 


7770 


M10, 


•10 


aiae 


0200 


DRIVNO, 





0101 


0000 


CHAR, 





0102 


0000 


LOMAD, 





0103 


0000 


HIBHAD, 





0104 


0000 


TRKCNI, 





0105 


0000 


DSKCNT, 





0106 


0000 


SBCNTl, 





0107 


0000 


8TCNT1, 





0110 


0000 


STCNT2, 





0111 


0000 


8TCNT3, 
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/RESERVED 
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/RKCE/flKaL 0I8K fORHtTTER PROSHtMl MD-l>a>DMilKO«D 



P*Lt< Vl«i* 2«-FeB-77 



19113 P«GC 1>£ 



PitSEt evtt 



eiia 


0000 


TCN7Rli 





em 


0000 


TeNTR2, 





eiu 


0000 


TCNTR3i 





eits 


0000 


TCNTR4, 





0116 


0000 


TCNTR5, 

/ 

S0RES2, 





BUT 


0000 





8120 


0000 


EXBIT, 





0121 


0000 


CMREE, 





ei22 


0000 


•TREE, 





ei23 


0000 


DtRES, 





0124 


0000 


CIREE, 





012S 


0000 


AORCE, 





0126 


0000 


DTREE, 





012T 


0263 


BGNTS7, 


FRHDSK 


0130 


0000 


HOUEM*, 





0131 


0000 


D4TCNT> 





0132 


7776 


CURCNT, 

/ 

XMOVE, 


•2 


0133 


1623 


MOVE 


0134 


0000 


LOCSEDi 





0135 


0424 


XEND, 


ENDTST 


0136 


0000 


sor7, 





0137 


0140 


tDPOTlf 


OSK0A 


0140 


0000 


DSK0t, 





0141 


0000 


DSKU, 





0142 


0000 


DSK2«, 





0143 


0000 


0SK34, 





0144 


0000 


DSK44, 





0145 


0000 


D9K5*. 





0146 


0000 


DSK6A, 





0147 


0000 


DSIt7«, 





0150 


0151 


ADP0T2. 


osK0e 


0151 


0000 


D9K0B, 





0152 


0000 


DSK18, 





0153 


0000 


0SK2B, 





0154 


0000 


0«K38, 





0155 


0000 


DSK«B, 





0156 


0000 


OSKSBi 





0157 


0000 


DBK6B, 





0160 


0000 


DSK7B, 





0161 


0000 


PCDUNT, 

1 

• 200 

/ 

SEN, 







0200 




0200 


6224 


Rir 


0201 


3130 




OCA MPHEMA 


0202 


1130 




TAD HOHEMA 


0203 


1075 




TAO KCOF 


0204 


3205 




OCA .«! 


0205 


7402 




HIT 



/UBEO ONUY tr ON APT 



/nAKt HOHEDF 



0206 4424 



/NOW rtST FOR APT SYSTEM 

/IF ON APT TERMINAL MES9ASES AKE SKIP 

/TO AVOID TIMING PROBLEMS WITH THE SYSTEM 



/MAKE OF'IF 



/TEST FOR APT SYSTEM 



/RKtE/KKSL DISK FORMATTER PROGKAMI HO-US-DHRKD-D 



PALlH V142A 22-FEB-77 
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0207 


4777' 


JMS 


Kcapsw 


0210 


4430 


lOTCHN 




0211 


4452 


CRLF 




0212 


4452 


CRLF 




0213 


4447 


PRNTER 




0214 


2045 


NESl 




0215 


4452 


CRLF 




0216 


4447 


PRNTER 




0217 


2066 


ME92 




0220 


1077 ALLAGN, TAD 


MIB 


0221 


3107 


OCA 


STCNTl 


0222 


3134 


OCA 


LOOSED 


0223 


3110 


OCA 


STCNT2 


0224 


4452 SAMAGN, CRLF 




0225 


4447 


PRNTER 




0226 


2117 


MES3 




0227 


1110 


TAD 


STCNT2 


0230 


1067 


TAO 


K026e 


0231 


4436 


TYPE 




0232 


1065 0UE91, TAO 


KB277 


0233 


4436 


TYPE 




0234 


1137 


TAD 


AOPOTl 


0235 


1110 


TAD 


STCNT2 


0236 


3111 


DCA 


STCNT3 


0237 


4434 


RECEIV 




0240 


5244 


JMP 


NOTDSK 


0241 


5232 


JMP 


UUESl 


0242 


2134 UA90SK, ISZ 


L0C6ED 


0243 


7340 


CLA CLL 


CMA 


0244 


3511 NOTDSK, OCA I 


STCNT3 


0245 


2110 


ISZ 


STCNT2 


0246 


2107 


ISZ 


STCNTl 


0247 


5224 


JMP 


SAMAGN 


0250 


4452 DONE. CRLF 




0251 


4447 


PRNTER 




0252 


2126 


MES4 




0253 


4434 


RECEIV 




0254 


5220 


JMP 


ALLAGN 


0255 


5250 


JMP 


DONE 


0256 


1134 


TAD 


LOCSED 


0257 


7041 


CIA 




0260 


7450 


SNA 




0261 


5200 


JMP 


BGN 


0262 


3134 


OCA 


LOCSEO 



0263 4533 

0264 1134 

0265 3056 

0266 1056 



/GET SR>, 

/CHANGE DEVICE TO StlR3-S 



/PRINT "RK6E/RK8L DISK FORMATTER PROGHAM" 
/MESSAEE 1 POINTER 



/PRINT "FOR ALL QUESTIONS" 
/MESSAGE POINTER 2 



/COUNTER POR AMOUNT OF DISKS 



"FORMAT DISK 7 " 
/MESSAGE POINTER 



/TYPE DISK NUMBER 



/HAIT fOR CHARACTER 
/NO NOT THIS DISK 
/NEITHER YES OR NO 



/YES. WAS CLEAR DISK POINTER 
/UPDATE POINTER 
/COUNT DISKS 
/ASK ABOUT NEAT 



/PRINT "ARE YOU SURE ?" 
/MESSAEE POINTER 4 
/WAIT FOR CHARACTER 
/NO, START ALL OVER 
/NEITHER TYPE 7 



/ANY DISKS 
/NO, OPERATOR ERROR 
/VESi AMOUNT LOCATED 
/ 

/FIRST RECALIBRATE AND FORMAT IN WRITE ALL MODE 
/ALL DISK DRIVES SELECTED BY OPERATOR,, MAKE THE FIRST 
/Two WORDS OF EVERY DISK SECTOR CSUAL TO THE 
/ABSOLUTE DISK ADDRESS. 
/ 

FRMDSK, JHB I XMOVE /MOVE DISK POINTERS 

TAO LOCSEO 
DCA AMOUNT 
TAD AMOUNT 



/RK«t/HKBU DISK FORHtrre" l>ROSK«ni HD-UB-UnRKD-O 



ei67 


3105 




OCA 


OSKCNT 


iue 


3115 




0C« 


TCNTR4 


B2T1 


1150 




T»0 


ADP0T2 


Bi72 


3116 




DCi 


TCNTR5 


B273 


1516 




T»0 I 


TCNTR5 


B274 


7640 




SZt CL* 




0275 


5302 




JMf> 


FUKMAT 


e276 


2116 


N&XFHM, 


ISZ 


TCNTH5 


BS77 


2115 




IS! 


TCNTR4 


a3ae 


5273 




JMP 


.•5 


Bsai 


7402 


/ 

F0HM4T, 


HLT 




eses 


1115 


T»0 


rCNTR4 


esei 


0060 




iNO 


K0l«03 


eiea 


7104 




CLL in. 




9305 


5100 




0C» 


ORIVNO 


0306 


1115 




T«0 


TCNTR4 


0307 


0061 




AND 


K4 


0310 


7640 




SZt CL« 




0311 


1066 




TAD 


K0200 


0312 


3120 




OCA 


EX8IT 


0313 


4433 




RECAL 




0314 


5335 




JMP 


KENEXl 


0315 


3102 




DCA 


LONAO 


0316 


3103 




OCA 


MISHAD 


0317 


1064 




TAO 


M313 


0320 


3104 


/ 


DCA 


TRKCNT 


0321 


4427 


uRrDSK, 


TICK 




0322 


7774 




• 4 




0323 


4431 




LOOTRK 




0324 


5335 




JMP 


RENEXl 


0325 


7300 




CLA CLL 




0326 


1102 




TAD 


LOHAO 


0327 


1063 




TAO 


K0040 


0330 


3102 




OCA 


LOWAO 


0331 


7630 




8ZL CL» 




0332 


2103 




ISZ 


HISHAO 


0333 


2104 




ISZ 


TRKCNT 


0334 


5321 




JMP 


HRTDSK 


0335 


2105 


RENEXl, 


ISZ 


OSKCNT 


0336 


5276 


/ 

/RUUTlN 


JMP 


NEXFRM 






E TO CHCCK ADORE 






/The first two 1 


dORUS !)F 






/THE taSOLUTE UISK ADDR 






/NUT CHECKED. 




0337 


1056 


CHKOSK, 


TAO 


AMOUNT 


0340 


3105 




DCA 


OSKCNT 


0341 


3115 




DCA 


TCNTR4 


0342 


use 




TAD 


ADP0T2 


0343 


3116 




OCA 


TCNTR5 


0344 


1516 




TAO I 


TCNTR5 



PALIB V142A 22.FEb-77 lail3 
/COUNTER FOR AMOUNT OF DISKS 



/A FEW COUNTERS 

/FORMAT THIS DISK 
/VES. GO 
/NO, TRY NEXT 



/KHAT MAPPENE01J77 



/M«SK OUT 

/MAKE DISK NUMUER 



/SET EXTENDED DRIVE BIT 
/RECALIBRATE THIS DRIVE 
/RECALIBRATE NEXT EXISTIN6 
/SETUP ADDRESS POINTER 
/SETUP ADDRESS POINTER 

/COUNTER FOR AMOUNT OF TRACKS 



/TIMING FOR APT IF NEEDED. 
/OTHERWISE BOTH ARE SKIPPED 
/FORMAT A TRACK 
/TO NEXT DISK 



/UPDATE TO NEXT TRACK 

/SET EXTENDED BIT 

/YES 

/UPDATE TRACK COUNTER 

/DO NEXT TRACK 

/UPDATE DISK COUNTER 

/DU NEXT DISK 



PAGEI 0016 



K ADDRESSING INFORMATION ON THE DISK, 
ORDS !)F EVERY SECTOR SHOULD EQUAL 
SK ADDRESS. ALL OTHER UATA IS 



/AMOUNT OF DISKS 



/SUFTWARE INFORMATION 



/RKSE/HKSL DISK FORMATTER PROGNAMi MD-i«e»OHHKD-D 



0345 


7640 




SZA 


CL» 




0346 


5353 




JMP 




CHKDAT 


0347 


2116 


NEXCHKi 


, ISZ 




TCNTR5 


0350 


2115 




ISZ 




TCNTR4 


0351 


5344 




JMP 




.-9 


0352 


7402 


/ 

CHKDATi 


HLT 






0353 


1115 


. TAD 




TCNTR4 


0354 


0060 




AND 




K0003 


0355 


7104 




CLL 


RAL 




0356 


3100 




DCA 




ORIVNO 


0357 


1115 




TAD 




TCNTR4 


0360 


0061 




AND 




K4 


0361 


764g 




SZA 


CLA 




0362 


1066 




TAO 




Ke200 


0363 


3120 




OCA 




EXBIT 


0364 


4433 




DECAL 




0365 


5776" 




JMP 




RENEX2 


0366 


3102 




DCA 




LOKAD 


0367 


3103 




OCA 




MIGHAD 


0370 


1064 




TAO 




M313 


0371 


3104 




DCA 




TRKCNT 


0372 


5775' 


/ 


JMP 




CHECK 


0375 


0400 








0376 


0414 










0377 


3456 
0400 


PAGE 








0400 


4427 


CHECK, 


TICK 






0401 


7774 




-4 






0402 


4432 




REDDSK 




0403 


5214 




JMP 




RENEX2 


0404 


7300 




CLA 


CLL 




0405 


1102 




TAO 




LOWAD 


0406 


1063 




TAD 




K0040 


0407 


3102 




OCA 




LOHAO 


0410 


7630 




SZL 


CL» 




0411 


2103 




ISZ 




HIGHAO 


0412 


2104 




ISZ 




TRKCNT 


0413 


5200 




JMP 




CHECK 


0414 


2105 


RENeX2, 


ISZ 




OSKCNT 


0415 


5777* 


/ 


JMP 




NEXCHK 


0416 


1022 


/ 


TAD 




22 


0417 


0070 




AND 




K4000 


0420 


7650 




SNA 


CLA 




0421 


5224 




JMP 




ENOTST 


0422 


2161 




ISZ 




PCOUNT 


0423 


5776- 




JMP 




FRMOSK 


0424 


4452 


ENDTST, 


CRLF 






0425 


4447 




PRNTER 




0426 


2021 




TEXENO 




0427 


4452 




CRLF 







PALIU V142A 22.FEB-77 

/CHECK THIS DISK 
/CHECK THIS ONE 
/UPDATE FOR NEXT DISK 



/WHAT HAPPENED777T7 



/MASK OUT 

/MAKE DRIVE NUMBER 



/SET EXTENDED DRIVE BIT 

/RECALIBRATE 

/TRY NEXT DRIVE 

/SETUP STARTING DISK ADDRESS 

/AMOUNT OF TRACKS TO DO 



/TIMING FOR APT IF NEEDED, 

/SKIPPED IF NOT REQUIRED, 

/READ AND CHECK ONE CYLINDER 
/TO NEXT DISK 



/UPDATE TO NEXT CYLINDER 

/TIME TO SET EXTENDED BIT 

/YES, SET IT 

/UPDATE CYLINDER COUNTER 

/CHECK NEXT ONE 

/UPDATE DISK COUNTER 

/CHECK NEXT 



/TEST FOR APT 

/ARE WET 

/NO. NORMAL RUN 

/INCREMENT PASS COUNT 

/LOOP PROGRAM 

/PRINT "PASS COMPLETE" 



/RKde/RK6L DISK FOSmTFER PROSKAMI NO-US-DMRKO-O 



itii 


4447 


PRNTER 




0431 


2135 


MESS 




zl>i^ 


4434 


RECtlV 




e«33 


5775' 


JMP 


ALLASN 


0434 


5227 


JMP 


• •5 


B43S 


5776' 


JHP 
/ 


FRHDSK 






/SUBROUTINE FOR 


"ERRORS, 






/ERROR TYPEOUTS, 

/ 

ERROi 




2436 


0000 




B437 


7301 


CL» CLU 


lAC 


0440 


1236 


T»0 


ERHO 


0441 


3344 


DC* 


RETRNl 


0442 


4426 


K»E»RO 




0443 


4452 


CRLF 




0444 


4452 


CRLF 




044S 


1636 


TiD I 


EKRO 


0446 


0062 


AND 


K0007 


0447 


1352 


T»D 


HEOTAD 


04S0 


3251 


DC4 


.*1 


0451 


7402 


HLT 




04S2 


3254 


DC4 


.*2 


0453 


4447 


PRNTER 




04!4 


7402 


HLT 




0455 


4452 


CRLf 




0456 


4447 


PRNTER 




0457 


1642 


TE»PC 




0460 


1256 


TtD 


ERRO 


0461 


4450 


OCTEL 




(1462 


1636 


T»D I 


ERKO 


0463 


7104 


CLL RIU 




0464 


7420 


9NU 




0465 


5274 


JHP 


NTBO 


0466 


3236 


DCi 


EHKQ 


0467 


4447 


PRNTER 




0470 


1644 


TE«GO 




0471 


1117 


TtD 


B0REG2 


0472 


4450 


OCTEL 




0473 


7610 


SKP CL» 




0474 


3236 


NTUDi DC» 


ERRO 


0475 


4447 


PRNTER 




0476 


1646 


TE«EX 




0477 


1120 


TAD 


tX»IT 


0500 


7640 


SZA CL* 




0501 


7Bai 


IkC 




0502 


4450 


OCTEL 




0503 


1545 


T»D 


XTEXT 


0504 


3350 


DC* 


PCNTR2 


0505 


1346 


T»0 


XRES 


0506 


3010 


UC» 


AUTOla 


0507 


1357 


TAD 


K7ni 


0510 


3347 


DC* 


PCNTRl 


0511 


7344 


CLA CLL 


CHA RAL 
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/PRINT "TRY SAME SEQUENCE" 



/WAIT FOR INPUT FROM OPERATOR 
/NO, ASK AGAIN 



PACE: 0i92O 



/TRY SAME SEOUtNCE 
SCOPE LOOPS, AND 



/GET PC STORED 

/STORE FOR RETURN 

/NOTIFY APT OF ERROR IS NEED BE 



/BET TEXT POINTER 

/MASK »-ll 

/MAKE ERROR HEADER TAD 

/MODIFIED HEADER TAD 

/MODIFIED HEADER POINTER 



/PRINT PCI 

/BET PC POINTER 
/PRINT PC STORED 
/BET TEXT POINTER 



/NUT GD: REGISTER 
/PRINT 601 

/PRINT FOUR OCTAL 



/COUNTER FOR 



> OF HEADS 



/RKSE/RKSL DISK FORMATTER PROGRAMI M0-»8-DhRK0-0 



0912 


3351 




OCA 


PCNTR3 




0513 


1236 


STHAUT, 


TAD 


ERRO 




0514 


7500 




SMA 






0515 


5316 




JMP 


NOIEX 




0516 


7104 




CLL RAL 






0517 


3236 




OCA 


ERKO 




0520 


1350 




TAD 


PCNTR2 




0521 


2350 




ISZ 


PCNTR2 




0522 


2350 




ISZ 


PCNTR2 




0523 


3325 




OCA 


• «2 




0524 


4447 




PRNTER 






0525 


7402 




HLT 






0526 


1410 




TAD I 


tUTOlB 




0527 


4450 




OCTEL 






0530 


2351 




ISZ 


PCNTR3 




0531 


7610 




SKP CLA 






0532 


4452 




CRLF 






0533 


2347 


AGAIN, 


ISZ 


PCNTRl 




0534 


5313 




JMP 


5TRAUT 




0535 


5744 




JMP I 


RETRNl 




0536 


7104 


NOTEI, 


CLL RAL 






0537 


3236 




OCA 


ERRO 




0540 


2350 




ISZ 


PCNTR2 




0541 


2350 




ISZ 


PCNTR2 




0542 


2010 




ISZ 


AUTO10 




0543 


5333 


/ 

RETRN., 


JMP 


AGAIN 




0544 


0000 









0545 


1650 


XTEXT, 


TEXCM 






0546 


0120 


XREG, 


EXBIT 






0547 


0000 


PCNTRl, 









0550 


0000 


PCNTR2, 









0551 


0000 


PCNTR3, 









0552 


1353 


HEDTAD, 


TAO 


HEDLST 




0553 


1664 


HEDLST, 


ERTXl 






0554 


1675 




ERTX2 






0555 


1705 




ERTX3 






0556 


171T 




ERTX4 






0557 


7771 


K7771, 
/ 


7771 






0575 


0220 








0576 


0263 










0577 


0347 

0600 


PAGE 












/ROUTINE TO FORMAT CYLINDER 








/MAKE FIRST TRU 


HORDS OF EVERY 


SECTOR 






/EUUAL 

/ 

WRTTRK, 


TO DISK 


ADDRESS. 




0600 


0000 









0601 


7330 




CLA CLL 


CML RAR 




0602 


3117 




OCA 


GDREG2 




0603 


4435 




KILBUF 






0604 


1071 




TAD 


KTT35 




0605 


3112 




OCA 


TCNTRl 
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/GET TEXT POINTER 
/NOT THIS ONE 

/GET TEXT MESSAGE POINTER 



/STORE FOR PRNTER 

/PRINT XXI 

/MODIFIED TEXT POINTER 

/PRINT FOUR OCTAL 



/CHECK FOR NEXT XXI 
/RETURN TO 0UE5TI0N 
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/SETUP COMPARE REGISTER 
/CLEAR BUFFER 
/AMOUNT OF SECTORS TO DO 
/SETUP COUNTER 



/RKSt/RKtU DISK rOR««TreR FROGKAIl HD»«B-D«RKD-0 



etitt 


3113 


OCA 


TCNTR2 


0687 


1272 


7»D 


K7762 


zbie 


3114 


DC* 


TCNTR3 


ZbH 


1113 LOBRl, T«0 


TCNTR2 


e6i2 


2274 


»N0 


Ke»37 


^613 


1122 


T»0 


tOKAD 


ebl4 


3453 


Oct I 


XLCJTRK 


261! 


1122 


T*D 


tXBIT 


0616 


1123 


T»0 


HIGHAD 


B617 


1122 


T«D 


BRIVNO 


ZtiZ 


3454 


OC* I 


XMITRK 


8621 


1454 


TAD I 


XHITRK 


itli 


2272 


IND 


"7577 


2623 


1132 


T»0 


MOMEMA 


2624 


1267 


T40 


KS222 


2625 


4442 


LDC"0 




2626 


1122 


TtD 


EXDIT 


2627 


4446 


LD9C 




2632 


7222 


cu» 




2631 


1255 


TiO 


BGN8UF 


2632 


4443 


LDCUR 




B63J 


1453 


T«D I 


XLOTRK 


2634 


4444 


UDIOD 




2635 


4441 


DSKSKP 




2636 


523! 


JMR 


.•1 


2637 


4442 


HDST4T 




2642 


1272 


TAD 


K422e 


2641 


7642 


SZ> CL< 




2642 


5254 


JMP 


LOUER 


2643 


2113 


I9Z 


TCNTR2 


2644 


2114 


ISZ 


TCNTR3 


2645 


7612 


5KP CL« 




2646 


3113 


DCt 


TCNTR2 


2647 


2113 


ISZ 


rcNTR2 


26S2 


2112 


ISZ 


TCNTRl 


2651 


5211 


JMP 


LOORl 


2652 


2222 


ISZ 


WRTTRK 


2653 


5622 


JMP I 


«IR7TRK 


2654 


4437 LOOER, ERROR 




2655 


3622 

/ 
4433 


3622 




2656 


RECAL 




2657 


5622 


JMP I 


WRTTR« 


2662 


4452 


CRLf 




2661 


4447 


PHNTEH 




2662 


1734 


ERMESl 




2663 


4434 


RECEIV 




2664 


5252 


JMP 


LOOtR-2 


2665 


5262 


JMP 


1-5 


2666 


5221 


JMP 


WRTTRK ♦! 


2667 


!222 K5222, 5222 




2672 


7577 K7577, 7577 
/ 





V142A 2!.F6b-77 1BI13 

/STARTING WITH 2 

/STOPPER 

/StCTOR COUNTER POINTER STOP 

/MASK SECTOR BITS 

/ADD IN CYLINDER 

/SETUP TRACK WORD IN BUFFER 

/ADO IN EXTENDED BIT 

/ADD IN DRIVE NUMBER 
/SETUP TRACK WORD IN BUFFER 



/CURRENT FIELD 
/FUNCTION URITE ALL 
/LUAU COMMAND 

/LOAD EXTENDED DRIVE BIT 
/CLEAR EXTENDED DRIVE BIT 

/LOAD CURRENT ADDRESS 

/LOAD TRACK AND GO 

/SKIP ON FLAG 

/WAIT FOR FLAG 

/REAU STATUS 

/H»3 STATUS et 

/ERROR, STATUS ON WRITE ALL 

/COUNT FIRST REVOLUTION 
/STILL IN FIRST REV. 
/SETUP FUR SECTOR "1" 

/UPDATE SECTOR COUNTER 
/TRY NEXT SECTOR 

/THIS CYLINDER DONE 
/ERROR, STATUS 
/TEXT POINTER 

/CLEAR CONTROL AND DRIVE 
/TU NEXT DISK 

/PRINT "TRY SAME AGAIN" 

/WAIT FOR YES OR NO 
/WAS A NQ TRY SAME CYLINDER 
/WAS NEITHER ASK AGAIN 
/YES, TRY NEXT 



PAGES 2222 



/SUBROUTINE TO REAU STATUS REGISTER 
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PAGE! 2223 



2671 


2222 


RD8T, 2 








2672 


6745 


lots, ORST 






/READ STATUS lOT 


2673 


7412 


SKP 








2674 


4777' 


ERMLTS, JMS 




XC8ERR 


/SKIP TRAP ERROR, 


2675 


3122 


DCA 




8TREG 


/8AVE RESULTS 


2676 


1122 


TAD 




STREG 




2677 


5671 


JMP 
/ 

/SUBROUTINE 
/ 
LDCA, 2 


I 


RDST 


/EXIT 






TO 


LOAD CURRENT 


ADDRESS RtlilSTER 


2722 


2222 








2721 


3125 


DCA 




• DREG 


/SAVE IN IDDRESS 


2722 


1125 


TAO 




ADREG 




2723 


3124 


DCA 




CAREG 


/SETUP INITIAL CURRENT ADUl 


2724 


1125 


TAO 




AOREG 




272! 


6744 


I0T4, ULCA 






/LOAD CURRENT ADDRESS IDT 


2726 


5722 


JMP 


I 


LDCA 


/EXIT 


2727 


4777' 


ERMLT4, JMS 




XCBERR 


/SKIP TRAP ERROR. 


2712 


5327 


JMP 
/ 




.•1 








/ 

/SUBROUTINE 

/ 

LOAD, 2 


TO 


LOAD TRACK ADDRESS REGISTER 


2711 


2222 








2712 


3123 


DCA 




UAREG 


/SAVE OUTBOUND DATA 


2713 


1123 


TAD 




DAHEG 




2714 


6743 


1073, DLAG 






/LOAD DISK ADDRESS REGISTER 


2715 


5711 


JMP 


I 


LOAD 


/EXIT 


2716 


4777' 


ERmlTS, JMS 




XCSERR 


/SKIP TRAP ERROR, 


2717 


5316 


JMP 

/ 




.-1 








/ 

/SUBROUTINE 
/ 

LOOM, 2 


TO 


LOAD COMMAND 


REGISTER 


2722 


2222 








2721 


3121 


OCA 




CMREG 


/SAVE OUTBOUND DATA 


2722 


3776' 


OCA 




INMUDE 




2723 


4775' 


JMS 




XC8CKP 


/CHECK FOR CONTROL CHARACT 


2724 


7222 


CLA 








272! 


7222 


CLA 








2726 


1121 


TAD 




CMREG 




2727 


6746 


tOT6, OLOC 






/LOAD COMMAND REGISTER 


2732 


5722 


JMP 


I 


LDCM 


/EXIT 


87J1 


4777* 


ERHLT61 JMS 




XCBERR 


/SKIP TRAP ERROR, 


2732 


53JI 


JMP 
/ 




.•1 








/ 
/SUBROUTINE 


IsauE "DLSC" 




2733 


2222 


XLUSC, 2 








2734 


6742 


I0T2, DLSC 








273! 


5733 


JMP 


I 


XLUSC 




2736 


4777' 


ERnLT2, JMS 




XCSERR 




2737 


5336 


JMP 




.-I 





/*Ket/HKat DISK FODHlTrER l>RDG>l«HI HD>US-DHRKO-0 
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iaii3 PAGE 1-ia 



PASEi earn 



/8UBP0OTINE TO ISSUE "DSKP" DISK SKIP lOT 



eT«B 


BBBB 


»0«Pi 


a 






e7«t 


6741 


lOTl, 


BSKP 






a742 


7418 




SKP 






B7«3 


2348 




ISZ 




SUKP 


0794 


5748 




JHP 


I 


SURP 






/SUBROUTINE 


TO 


ISSUE "DCLR" CLEAR lOT 


1|7«! 


BBBB 


CLOP. 


B 






e74b 


6742 


I0T2, 


DCLR 






B7«7 


5745 




JNP 


I 


CLDR 


tm 


4777' 


ERMLT2i 


r JMS 




XCSERR 


B751 


5358 




JMP 




.-1 






/HUUTINE TD 


ZtH 


WORK BUFFER 


8758 


BBBB 


KLBUf, 


B 






B7S3 


7348 




CL< 


CLU 


CHA 


B7S« 


1855 




TID 




BSNBUF 


B7S5 


3BiB 




Oct 




AUT018 


B75t 


1364 




TAO 




K74BB 


B757 


3131 




DCA 




OATCNT 


BTtB 


3418 




OCA 


I 


AUTOta 


B761 


2131 




ISZ 




UATCNT 


1)762 


5368 




JNP 




.-2 


B763 


5752 




JHP 


I 


KUBUF 


B7b4 


7488 


K74B8, 

/ 


7488 






B775 


3641 








B776 


3676 










a777 


4887 
IB88 


P«&E 

/ 












/ 

/RUUTIiNt TO 
1 


READ AND CHECK A CTLINDEN 


IBBB 


BBBB 


RtOTRK, 


1 B 






IBBl 


1B71 




TAD 




«7f35 


1BB2 


3112 




DCA 




TCNTRl 


1BB3 


3113 




OCA 




TCNTR2 


1BB4 


1872 




TAD 




K7T68 


1BB5 


3114 




OCA 




TCNTR3 


1886 


4435 




KILBUF 




1887 


7348 


CHURl, 


CLA 


CLL 


CNA 


1818 


3136 




DCA 




SOFT 


1811 


1BS5 




TAD 




BGNSUF 


1812 


4443 




LOCUR 




1813 


1183 




TAD 




niGHAO 


1814 


IIBB 




TAD 




ORIVNO 


lei: 


113B 




TAO 




HOnEMA 


1816 


4442 




LDCnO 




iai7 


1128 




TAO 




EXBIT 


1828 


4446 




LOSC 







/DISK SKIP lOT 
/DID NOT SKIP 



/EXIT 



/DCLR "CLEAR lOT" 
/EXIT 
/SKIP TRAP ERROR. 



/START OF BUFFER .1 
/SETUP AUTO INDEX 

/SETUP COUNTER 
/CLEAR BUFFER 
/UPDATE COUNTER 
/NOT ALL CLEARED YET 
/BUFFER CLEARED 



/AMOUNT OF SECTORS TO DO 
/STARTING KITH 8 



/CLEAR BUFFER 

/SETUP SOFT ERROR FLAG 

/LOAD CURRENT ADDRESS 

/EXTENDED CYLINDER BIT 

/CURRENT DRIVE 

/CURRENT FIELD 

/LOAD CDNHAND 

/LOAD EXTENDED DRIVE BIT 



/RKSE/RKSL DISK FORNATfER PROGRAHI MO-Be>DHRKD-D 
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1SI13 PAGE 1-11 



1B21 
1822 

ta23 

1824 
1825 
1826 
1827 
1B3B 
1831 
1832 
1B33 
1834 
1835 
1836 
1837 
1848 
1841 
1842 
1843 
1B44 
1845 
1846 
1847 
1858 
1851 
1852 
1853 
1854 
1B55 
1B56 
1B5T 
1B6B 
1861 
1862 
1863 
1864 
1B65 
1866 
IB67 
lB7a 
1871 
1B72 
1873 
1874 
1875 
1B76 
1BT7 
1188 
ItBl 
11B2 
UB3 
1184 
IIBS 
tlB6 
IIBT 



7288 
1113 
8874 
1182 
4444 
4441 
5226 

444a 

1878 

7658 

5241 

1122 

8777' 

76SB 

5386 

3136 

1121 

BB62 

112B 

7B41 

1454 

7658 

5256 

1454 

3126 

1121 

8862 

3117 

5383 

1453 

7841 

1123 

7658 

5271 

2125 

1123 

3117 

1453 

5126 

53B3 

1136 

76SB 

S3B6 

1113 

1868 

3113 

2114 

52B7 

2288 

5688 

1776' 

3313 

5312 

1775* 

3313 



FRSTOK, 



DATER. 



CLA 

TAO 

AND 

TAD 

LDADD 

DSKSKP 

JHP 

RDSTAT 

TAD 

SNA CLA 

JHP 

TAD 

AND 

SNA CLA 

JMP 

DCA 

TAD 

AND 

TAD 

CIA 

TAD I 

SNA CLA 

JMP 

TAO I 

DCA 

TAD 

AND 

DCA 

JHP 

TAD I 

CIA 

TAB 

SNA CL« 

JMP 

ISZ 

TAD 

DCA 

TAD I 

OCA 

JHP 

TAD 

SNA CLA 

JHP 

TAD 

TAD 

DCA 

ISZ 

JMP 
ISZ 

JMP 1 

TAO 

DCA 

JMP 

TAO 

OCA 



TCNTR2 

K0837 

LOKAD 



STAOK 
STREG 
K8818 

STAER 

SOFT 

CHREG 

KeaaT 

EXBIT 

XMITRK 

FRSTOK 

XHITRK 

DTREG 

CMREG 

KBBB7 

GDREG2 

DATED 

XLOTRK 

DAKEG 

DATOK 

ADREG 

UAREG 

GDREG2 

XLOTRK 

DTREG 

DATER 

SOFT 

STAER 

TCNTR2 

K8BB3 

TCNTR2 

TCNTR3 

CMKRl 

REDTRK 

REDTRK 

K7741 

TCMKT 

CHKER 

K]6Be 

TCMKT 



/CLEAR EXTENDED DRIVE BIT 

/MASK SECTOR BITS OFF 

/AUO IN OTHER DISK ADDRESS 

/LOAD AND GO 

/DISK SKIP lOT 

/WAIT FOR FLAG 

/READ STATUS 

/ADD IN FUDGE FACTOR 

/SKIP IF ERROR 

/STATUS O.K. 

/GET STATUS READ 

/HAS IT A CRC 
/NUi JUST A HARD ERROR 
/CLEAR SOFT ERROR FLAG 
/GET LAST COMMAND 

/ADD EXTENDED DRIVE BIT 

/GET HDRD READ FROM DISK 

/SKIP IF ERROR 

/FIRST HORD O.K. 

/GET WORD 

/SETUP ERROR PRINTER 



/SETUP GOOD FOR PRINTER 
/NO, DATA ERROR 
/GET WORD READ 

/COMPARE TO GOOD 
/SKIP IF ERROR 
/'ORU O.K. 
/SETUP ERROR PRINTER 

/SETUP GOOD WORD FOR PRINTER 

/GET WORD READ 

/SETUP FOR PRINTER 

/DATA ERROR 

/GET SOFT ERROR FLAG 

/HAS IT CLEAN 

/TESi STATUS ERROR 

/ADVANCE 3 SECTORS 



/MORE TO FORMAT 
/EXIT, O.K. 



/SETUP TEXT POINTER 
/ERROR 



/SETUP TEXT POINTER 



/RK8t/KKSL DISK FORHtTTEl! PKDGKIH) no-l9e-OHI)KO>D 



^*L1» Vll|J« il-fta-yi 



16113 p*Ge 1-ii 



PAGEl iae26 



me 


7330 




CLA 


CLL 


CML RAR 


nil 


3117 




DCt 




l>aHEG2 


1112 


4437 


CHuen, 


ERROR 




1113 


0020 


TCHKT, 









UH 


4433 




RECAL 




1U5 


5600 




JMR 


I 


REOTRK 


Hit 


4452 




CRLf 






HIT 


4447 




PRNTER 




ii2e 


2000 




ERHES3 




1121 


4434 




HECEIV 




1122 


5301 




JHP 




DATER -2 


1123 


5316 




JMP 




.-9 


1124 


5201 


/THIS 


JMP 




MtOTRK *l 






KOUTINE " 


ILL TEST rOR 






/P»CK*bE If 


NEtO St 


1125 


0000 


«P'«, 









1126 


1022 




TAO 




22 


1127 


7700 




SHA 


CLA 




use 


572! 




JMP 


I 


APIS 


1131 


1022 




TAD 




22 


1132 


0373 




AND 




KT377 


1133 


3022 




OCA 




22 


1134 


1022 




TAO 




22 


113! 


0062 




ANO 




K0B07 


1136 


3107 




DCA 




STCNTl 


1137 


1022 




TAO 




22 


il4e 


0774' 




ANO 




K0100 


1141 


7650 




SNA 


CLA 




1142 


5353 




JMP 




MULDSH 


1143 


1137 




TAD 




AOPOTl 


1144 


1107 




TAD 




STCNTl 


1145 


3107 




DCA 




STCNTl 


1146 


7340 




CLL 


CLA 


CMA 


1147 


3507 




OCA 


I 


STCNTl 


1150 


7340 




CLL 


CLA 


CMA 


1151 


3134 




OCA 




LOCSED 


1152 


5527 




JMP 


I 


BGNTST 


1153 


1107 


HULOSK 


1 TAO 




STCNTl 


1154 


7040 




CMA 






1155 


3107 




DCA 




STCNTl 


1156 


1137 




TAO 




AOPOTl 


1157 


1110 




TAD 




STCNT2 


ll6e 


3111 




OCA 




8TCNT3 


1161 


2134 




ISZ 




LOCSEO 


1162 


7340 




CLL 


CLA 


CMA 


1163 


3511 




OCA 


I 


STCNTi 


1164 


2110 




ISZ 




5TCNT2 


1165 


2107 




162 




STCNTl 


1166 


5356 




JMP 




MJLOSKtJ 


1167 


1134 




TAD 




LOCSED 


ll7a 


7041 




CIA 






1171 


3134 




DCA 




LOCSED 



/SETUP GOOD STATUS PBINTEM 
/ERROR, READ DATA 
/MUDIPIEO TEXT POINTER 
/CLEAR CONTROL AND DRIVE 
/TO NEXT DISK 

/PRINT "THY SAME AGAIN" 



/CMECK NEXT 

/Rt-PRINT 

/TRY SAME AGAIN 



APT ANO NOP CONSOLE 



/ON APT. NOP CONSOLE PACKAGE 



/ISOLATE DRIVE NUMBER OR 
/NUMBER OF DRIVES TO BE DONE 



/SINGLE DRIVE TESTING 
/NU, SEVERAL TO DO 
/GET DISK POINTER 
/ESTABLISH DRIVE TO DO 

/-I 

/ONE DISK TO 00 

/URIVt TO Bt DONE 



/GET DISK POINTER 
/ESTABLISH DRIVE TO BE DONE 



/UO THIS DRIVE 
/MURE TO 00 
/NUMBER TO Bt DONE 



/RKSt/HKSL DISK FORMATrER PROGRAMI MD.Ue-DHRKO-P 
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PAGE! 0027 



1172 


5527 




JMP I 


BGNTST 


1173 


7377 


K7377, 


7377 




1174 


1556 








1175 


1326 








1176 


1325 








1177 


1324 
1200 


PAGE 










/ 

/SUBROUTINE TO 


PRINT T"0 OCTAL 


1200 


0000 


TOCT, 







1201 


3106 




DCA 


SBCNTl 


1202 


1106 




TAD 


SBCNTl 


1203 


7010 




RAR 




1204 


7012 




RTR 




120! 


0062 




ANO 


K0007 


1206 


1067 




TAO 


KB260 


1207 


4436 




TYPE 




1210 


1106 




TAD 


SBCNTl 


1211 


0062 




ANO 


K0007 


1212 


1067 




TAD 


K0260 


1213 


4436 




TYPE 




1214 


5600 




JMP I 


TOCT 



/PRINT FIRST BYTE 



/PRINT SECOND BIT 
/EXIT 



ROUTINE TO DO CRLF 



1215 


0000 


UPONE, 







1216 


7300 




CLA CLL 




1217 


1225 




TAD 


K0215 


1220 


4436 




TYPE 




1221 


1226 




TAD 


K0212 


1222 


4436 




TYPE 




1223 


4436 




TYPE 




1224 


5615 


/ 

K0215, 


JMP I 


UPONE 


1225 


021! 


0215 




1226 


0212 


K0212, 
/ 

/nouTIn 

/ 

FROCT, 


0212 








E TO PRINT FOUR OCTAL 


1227 


0000 







1230 


7006 




RTL 




1231 


7006 




RTL 




U32 


321! 




OCA 


UPONE 


1233 


1076 




TAO 


M4 


1234 


3200 




DCA 


TOCT 


1235 


121! 




TAD 


UPONE 


1236 


0062 




ANO 


K0I107 


1237 


1067 




TAD 


K0260 


1240 


4436 




TYPE 




1241 


1215 




TAO 


UPONE 


1242 


7006 




RTL 




1243 


7004 




RAL 





/TYPE ONE NULL 



/RK8t/HK6L DISK FODMATTeR KROBKA"! MO-US-OHRKD-D 
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12411 


3215 




OCA 


UPONE 


12«5 


220Z 




IS! 


TgCT 


1246 


5235 




J«P 


• -It 


1247 


1321 




TAD 


K0240 


l^l^ 


4436 




TYPE 




1251 


5627 




JMP I 


FROCT 






/SUBRPUTINE TO 1 


PRINT TEXT 


12:2 


0000 


/ 

PRn, 







1253 


7 300 




CCA CUU 




1254 


1652 




TAD I 


PRN 


1255 


2252 




ISZ 


PRN 


1256 


3227 




OCA 


FROCT 


1257 


1627 




TAD I 


FROCT 


126e 


0322 




AND 


K7r00 


1261 


7450 




SNA 




1262 


5306 




JMP 


EXIT 


1263 


7500 




3MA 




1264 


7020 




C«L 




1265 


7001 




lAC 




1266 


7012 




RTR 




1267 


7012 




RTR 




1271 


7012 




RTR 




1271 


4436 




TYPE 




1272 


1627 




TAD : 


FROCT 


1273 


0323 




AND 


H0077 


1274 


7450 




SNA 




1275 


5306 




JMP 


EXIT 


1276 


1311 




TAD 


K3740 


1277 


7500 




SMA 




imz 


1310 




TAD 


114100 


13111 


1321 




TAD 


K0240 


1382 


4436 




TYPE 




1303 


2227 




ISZ 


FROCT 


1324 


7300 




CLA CLl. 




1315 


5257 




JMP 


PRN»5 


1306 


7300 


EXIT, 


CLA CLU 




13B7 


5652 




JMP I 


PRN 


13ie 


4100 


/ 

K4100, 


4100 




1311 


3740 


K3740, 


3740 








/ 

/ROUTINt TO TTH 


'E 


1312 


0000 


PRINT, 







1313 


6046 




TL3 




1314 


6041 




TSF 




1315 


5314 




JMP 


.•1 


1316 


6042 




TCF 




1317 


7200 




CLA 




1320 


5712 




JHP I 


PRINT 


1321 


0240 


K0240, 


0240 




1322 


7700 


K770B, 


7700 





/SET POINTER 
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1323 


0077 


K0077, 


0077 








1324 


0010 


K00I0, 


10 








1325 


7741 


K7741, 


7741 








1326 


3600 


K3600, 


3600 












/ROUTINE TO 


MA11 


r FUR KEY FROM OPERATOR 




1327 


0000 


HAIT, 











1330 


7300 




CLA 


CLL 






1331 


6032 




KCC 








1332 


6031 




KSF 








1333 


5332 




JMP 




• -1 




1334 


6036 




KRB 








1335 


6046 




TLS 








1336 


6041 




TSF 








1337 


5336 




JMP 




.-1 




1340 


0370 




AND 




K0177 




1341 


1066 




TAD 




K0200 




1342 


3101 




DCA 




CM4R 




1343 


1101 




TAD 




CMAR 




1344 


3777" 




DCA 




CSCMAR 




1345 


2776' 




ISI 




INMODE 




1346 


4775' 




JMS 




XCSCNT /CHECK 


FOR CONTROL CHARACTERS, 


1347 


7200 




CLA 








1350 


7200 




CLA 








1351 


3776' 




DCA 




INMOOE 




1352 


6032 




KCC 








1353 


6042 




TCF 








1354 


1101 




TAO 




CHAR 




1355 


7041 




CIA 








1356 


1371 




TAO 




K0316 




1357 


7650 




SNA 


CL« 




/MAS IT A NO 


1360 


5727 




JMP 


I 


RAIT 


/YES 


1361 


2327 




ISZ 




"AIT 


/UPDATE RETURN POINTEI 


1362 


1101 




TAD 




CHAR 




1363 


7041 




CIA 








1364 


1372 




TAD 




K0331 




1365 


7650 




SNA 


CL« 




/WAS IT A YES 


1366 


2327 




ISZ 




WAIT 


/WAS A YES 


1367 


5727 




JMP 


I 


RAIT 


/HAS NEITHER 


1370 


0177 


K0177, 


0177 








1371 


0316 


Ke316, 


0316 








1372 


0331 


K0J31, 
/ 


0331 








1375 


3200 










1376 


3676 












1377 


3675 

1400 


PABE 

/ 














/ 

/ROUTINE TO 


RELALIURATE SELECTED DRIVE 




1400 


0000 


RESTORi 











1401 


7301 




CLA 


CLL 


lAC 


/ENABLE CLEAR CONTROL 


1402 


4445 




CLR»LL 




/CLEAR CONTROL 


1403 


1100 




TAD 




DRIVNO 


/CURRENT DRIVE 
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PAiiEi eese 



11)04 


1132 




TAD 


HOMEMA 




142! 


4442 




UOCHD 






1436 


1122 




TAD 


EXBIT 




1427 


4446 




L05C 






1412 


7332 




CLA CUL 


CML RAR 




1411 


3117 




DCA 


S0HEG2 




1412 


7326 




CLA CLU 


CML RTL 




1413 


4445 




CLRALL 






1414 


4441 




DSKSKP 






1415 


5214 




JMP 


.-l 




1416 


4442 




ROSTAT 






1417 


1327 




TAD 


K2222 




14213 


7452 




SNA 






1421 


5225 




JMP 


RE8TA 




1422 


1327 




TAD 


K2222 




142J 


7642 




9ZA CU« 






1424 


5243 




JMP 


RESTER 




1425 


4445 


RESTA, 


CLRALL 






1426 


1266 




TAD 


Ki9222 




1427 


1121 




TAD 


CMREG 




1432 


4442 




LDcno 






1431 


4441 




D9KSKP 






1432 


5231 




JMP 


.•1 




1433 


4442 




RDSTAT 






1434 


1272 




TAD 


N4iaB2 




1435 


7642 




SZA CLA 






1436 


5243 




JMP 


RfcSTER 




1437 


7321 




CLA CUL 


lAC 




1442 


4445 




CLRALL 






1441 


2222 




lai 


RESTOR 




1442 


5622 




JHP I 


HtSTOR 




1443 


4437 


RE6TER, 


ERROR 






1444 


36tI3 


/ 


3623 






1445 


4452 


CRLF 






1446 


4447 




PRNTER 






1447 


1756 




ERMES2 






1452 


4434 




RECEIV 






1451 


5254 




JMP 


.*> 




1452 


5245 




JMP 


.•5 




1453 


5221 




JMP 


RE6TQR «1 




1454 


7321 




CLA CLL. 


lAC 




1455 


1256 




TAD 


AMOUNT 




1456 


7452 




SNA 






1457 


5535 




JMP I 


XEND 




1462 


3256 




DCA 


AMOUNT 




1461 


3516 




OCA I 


TCNTR5 




1462 


5622 


/ 


JMP I 


RESTOR 








/ 

/ROUTINE TO CHANOe DEVICE 


COOES 


1463 


2222 


CnANG, 


2 






1464 


4777' 




JM8 


XC8SW 




1465 


7212 




RAR 







/CURRENT FIELD 
/LOAD COMMAND 

/LOAD EXTENDED DRIVE BIT 
/MAYUE EXPECTED STATUS 
/SETUP COMPARE REGISTER 
/ENABLE RECALIBRATE BIT 
/"RECALIBRATE" 
/DISK SKIP lOT 
/WAIT FOR FIRST DONE FLAG 
/READ STATUS 

/HAS IT BUST AND DONE 

/rtS, TMEN ITS O.K. 

/NO, TMEN IT MUST BE JUST DONE 

/MAS IT JUST DONE 

/NO, ERROR 

/CLEAR STATUS 

/ENABLE SET SECOND DONE FLAG 

/ORIGINAL COMMAND 

/LOAD COMMAND 

/UISK SKIP lOT 

/HAIT FDR SECOND DONE 

/READ STATUS 

/HAS IT ONLY DONE FLAG 

/NQ, ERROR STATUS 

/ENABLE CLEAR CONTROL 

/CLEAR CONTROL 

/UPDATE FOR GOOD RECALIBRATE 

/RETURN 

/ERROR, STATUS 

/TEXT POINTER 



/PRINT "TRY RtCALISHATE" 

/»Air FOR INPUT 

/TRY NEXT EXISTING DISK 

/TRY AGAIN 

/liET AMOUNT ON SYSTEM 

/WAS THERE ONLY 1 LEFT 

/LAST DISK 

/MORE TO GO BUT CLEAR THIS ONE 

/CLEAR DISK POINTER 

/THY NEXT ONE 



/GET SWITCH REGISTER BITS, 



/RKSE/RK8L DISK FORMATTER PROGHAMI MD-2e-DHRKD-D 



1466 


7622 




SNL CL« 




1467 


5663 




JMP I 


CHANG 


147a 


4777' 




JMS 


XCSSW 


1471 


2313 




AND 


AaT72 


1472 


3314 




OCA 


CSAVEI 


1473 


1316 




TAD 


CCNTRl 


1474 


3315 




DCA 


CSAVE2 


1475 


1317 




TAD 


CHNPOT 


1476 


3222 




DCA 


RESTOR 


1477 


1622 


CHANGR, 


TAD I 


RESTOR 


1522 


3311 




DCA 


KWAIT 


1521 


1711 




TAD I 


KWAIT 


1522 


2312 




AND 


A7227 


1523 


1314 




TAD 


CSAVEI 


1524 


3711 




DCA I 


KwAIT 


1525 


2222 




IS2 


RESTOR 


1526 


2315 




ISl 


C5AVE2 


1527 


5277 




JHP 


CHANGR 


1512 


5663 


/ 
KWAIT, 


JMP I 


CHANG 


1511 


2222 


2 




1512 


7227 


A7227, 


7227 




1513 


2772 


A2772, 


2772 




1514 


2222 


CSAVEI, 


2 




1515 


2222 


CSAVE2, 


2 




1516 


7771 


CCNTRl, 


7771 




1517 


1522 


CHNPOT, 


CHNPOT 


♦ 1 


1522 


2734 




10T2 




1521 


2741 




lOTl 




1522 


2746 




I0T2 




1523 


2714 




I0T3 




1524 


2725 




I0T4 




1525 


2672 




:0T5 




1526 


2727 




I0T6 




1527 


2222 


K2222, 
/ 

/THIS ► 
/ 
KTICK, 


2222 








lOUTINE " 


ILL GENI 


1532 


2222 


2 




1531 


7322 




CLL CLA 




1532 


1222 




TAO 


22 


1533 


2272 




AND 


K4222 


1534 


7652 




SNA CLA 




153! 


5351 




JHP 


EXTICK 


1536 


1732 




TAD I 


KTICK 


1537 


3353 




DCA 


COUNT 


1542 


2132 




ISZ 


CLKCNT 


1541 


5351 




JMP 


ExTICK 


1542 


1353 




TAD 


COUNT 


1543 


3132 




DCA 


CLKCNT 


1544 


2354 




ISZ 


CNT 


1545 


5351 




JMP 


EXTICK 


1546 


4425 




TIME 




1547 


1355 




TAO 


KCNT 


1552 


3354 




DCA 


CNT 



PALle V142A 22-FE8-77 

/CHANGE DEVICE CODES? 

/NO, 

/GET SWITCHES, 

/SAVE DESIRED 



/GET ADDRESS POINTER 

/GET OLD CODE 

/MASK 

/ADD IN DESIRED 

/STORE DESIRED DEVICE CODE 

/UPDATE POINTER 

/UPDATE CHANGE COUNTER 
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/EXIT TO PROGRAM. 



TIMING IF NEEDED BY THE APT SYSTEM 



/GET HARDWARE CONFIGURATION 

/QN APT7 

/NO 

/SET TIMING VALUE 

/ESATABLISH TIME 

/RETURN 

/GET VALUE OF COUNTER 

/STORE IT 

/TIMING NEED BE DONET 



/TIMING VALUE 

/INIT SECOND COUNTER 



/RKSt/RK»L DISK FORM»TTER fROOKAMl HD-«t-DHRKD-D 



ISSt iiM 

t!S2 9730 

1553 ttte 

J55« TT76 

1555 7776 

1556 i9iee 



1557 BZsg 

I56e 60e2 

1561 6214 

1562 1075 

1563 3364 

1564 7lie2 

1565 6272 

1566 4771 

1567 73ag 
157a 5757 

1571 6Sae 

1577 3062 
1600 



EXTtCK, ISZ 

JMR I 



KTICK 
KTICK 



Vt42> 22-FEa-77 16113 
/Huve UEVOND TIMING VILUE 
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COUNT, 

CNT, -2 

KCNT, -2 

K0100, 0100 

/ 

/ 

/RUUTINt TO NOIIFY »PT Of USE IF REUUIKEO 

/ 



KTIME, 



I 

K6300, 
I 





lOF 

RUF 

T»0 KCUF 

Oct ,*\ 

HLT 

CIF 70 

jns I 56900 

CUL CL« 

JMP I ISTIHE 

6500 



/0I8«BtE INTERUPTS 
/SET PHEStNT 0«T« FIELD 



/ESKSLISntS CURRENT D«T« FIELD 

/FIELD 7, LOC1TI0N OF UV FROM 



FieE 

/ 

/ 

/THIS KOUTINE "ILL NOTIFV tPT UF IN ERROR tNU SEND PC TO 

/APT SYSTEM. ALL ERRORS RILL RESULT IN PROBRAM MLT ANB A TIME OUT ON 

/APT, APT WILL TAKE OVER FROM IHERE. 



1600 


0000 


/ 

AERRO, 







1601 


6002 




lOF 




1602 


7200 




CLA 




1603 


1022 




TAD 


22 


1604 


7700 




SMA 


CLA 


1605 


5600 




JMP 


I AENRO 


1606 


1621 




TAO 


I KERRO 


1607 


3222 




OCA 


SAVPC 


1610 


6214 




RDF 




1611 


1075 




TAO 


KCUF 


1612 


3214 




OCA 


."'■ 


1613 


1222 




TAO 


SAVPC 


1614 


7402 




MLT 




1615 


6272 




CIF 


70 


1616 


5620 




JMP 


I l«6920 


1617 


7402 


/ 

K6520, 


MLT 




1620 


6520 


6528 


1 


1621 


0436 


KERRO, 


ERRC 


1 


1622 


0000 


SAVPC, 

/ 

/ 








/DISABLE INTERUPTS 
/CHECK FOR APT SYSTEM 



/RETURN NOT ON APT 
/GET PC 



/SET CURRENT DATA FIELD 



/REPLACED HILL CURRENT DATA FIELD 
/CHANGE IF FUR APT RETURN TO FIELD 7 
/NOTIFIES APT OP ERROR 
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/ROUTINE TO MOVE UISK POINTERS 


1623 


0000 


MOVE, 







1624 


1237 




TAO 


AOPTl 


1625 


3010 




OCA 


AUToie 


1626 


1240 




TAD 


AUPT2 


1627 


3011 




OCA 


AUTOU 


1630 


1077 




TAO 


Mill 


1631 


3241 




DCA 


MCNTRl 


1632 


1410 




TAD I 


AUTO10 


1633 


3411 




DCA I 


AUTOU 


1634 


2241 




ISZ 


MCNTRl 


1635 


9232 




JMP 


• -1 


1636 


5623 


/ 
ADPTI, 


JMP I 


MOVE 


1637 


0137 


OSK0A 


•1 


1640 


0190 


ADPT2, 


osK0e 


•1 


1641 


0000 


HCNTRl, 

/ 







1642 


2003 


/ 

TEXPC, 


TEXT 


"PCI" 


1643 


7200 








1644 


0704 


TEISO, 


TEXT 


"GDI" 


1645 


7200 








1646 


0530 


TE»E», 


TEXT 


"EXI" 


1647 


7200 








1650 


0315 


TE«CM, 


TEXT 


"CHI" 


1651 


7200 








1652 


2324 


TEXST, 


TEXT 


"STI" 


1653 


7200 








1654 


0401 


TEXOA, 


TEXT 


"DAI" 


1655 


7200 








1656 


0301 


TEJICA, 


TEXT 


"CAI" 


1657 


7200 








1660 


0104 


TE«AO, 


TEXT 


"AOI" 


1661 


7200 








1662 


0424 


TE»OT, 


TEXT 


"DTI" 


1663 


7200 


/ 

ERTXl, 






1664 


2205 


TEXT 


"READ STATUS E» 


1665 


0104 








1666 


4023 








1667 


2401 








1670 


2425 








1671 


2142 








1672 


0522 








1673 


2217 








1674 


2200 








1675 


0411 


ERTK2, 


TEXT 


"DISK DATA ERRt 


1676 


2313 








1677 


4004 








1700 


0124 








1701 


0140 








1702 


0522 









/FROM HERE 
/TO THERE 
/4 POINTERS 
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17BJ 
1T84 
UBS 
1706 
1787 
1710 

irii 

1718 
1713 
1714 
1715 
1716 
1717 
17SB 
1781 
1788 
1783 
178« 
1785 
1786 
1787 
173a 
1T31 
1738 
1733 

173« 
1735 
1736 
1737 

17iia 

1741 
1742 
1743 
1744 
1745 
1746 
1747 
1758 
1751 
1758 
1753 
1754 
1755 
1756 
1757 
1760 
1761 
1768 
1763 
1764 
1765 
1766 
1767 
1770 



8817 
8800 
8788 
1184 
0540 
8384 
0184 
8583 
4005 
8888 
1788 



8805 
0301 
1411 
0888 
0184 
0540 
8384 
U184 
8583 
4005 
8888 
1788 



8488 
3140 
2417 
4006 
1722 
1501 
2440 
2301 
1505 
4003 
3114 
1116 
0405 
8840 
0107 
0111 
1677 
0000 
2482 
3140 
8417 
4022 
0503 
0114 
1108 
2801 
2405 
4023 
0115 



tRTKS, TE«T 



"HKnE STATUS tRHOR" 



ERr»4, TEIT 



■KtCALIBRATE STATUS ERROR" 



eR"ESl, Te«T "tRT TO FORMAT SAME CTLINUER AGAIN?" 



ERKESa, TE«T "IRT TO HECALIBRAIt SAnt UISK AljAlNT" 
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1771 


0540 


1778 


0411 


1773 


8313 


1774 


4001 


1775 


0701 


1776 


1116 


1777 


7700 


8000 


8488 ERMES3, TEIT 


8001 


3140 


8008 


8417 


8003 


4t)03 


2004 


1005 


8005 


0313 


2006 


4083 


8007 


0115 


8010 


0540 


8011 


0331 


8018 


1411 


8013 


1604 


8014 


0388 


8015 


4001 


8016 


0701 


8017 


1116 


8020 


7700 


8081 


8813 TEAEND. TEXT 


8022 


7005 


8083 


5728 


8084 


1370 


8085 


1440 


8086 


0411 


8087 


8313 


8030 


4006 


2031 


1788 


8038 


1501 


8033 


2424 


2034 


0588 


8035 


4080 


8036 


0183 


8037 


8340 


8040 


0317 


8041 


1520 


8042 


1405 


2043 


8405 


8044 


0000 


2045 


821J HESl, TEXT 


8046 


7005 


8047 


S788 


8050 


1370 


8051 


1440 


8058 


0411 


2053 


8313 


8054 


4006 


8055 


1788 


8056 


1581 



ERMES3, TEAT "IRT TO CMEC« SAME CTLINUER ABAIN7" 



"RUBE/RKBL DISK FORMATTER PASS COMPLETE" 



TEXT "KKBE/RKBL OISK FORMATTER PROGRAM" 
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Tt»T >fO» »UU QUESTIONS, «N»"EK Y POH YES OR N FOR NO," 



2857 


2424 


2860 


0522 


2061 


4020 


2062 


2217 


2063 


0722 


2064 


0115 


2065 


0000 


2066 


0617 


2067 


2240 


2070 


0114 


2071 


1440 


2072 


2125 


2073 


0523 


207« 


2411 


2075 


1716 


2076 


2354 


2077 


4001 


2100 


1623 


2101 


2705 


2102 


2240 


2103 


3140 


2104 


0617 


2105 


2^40 


2106 


3105 


2107 


2340 


2U0 


1722 


2U1 


4016 


2112 


4006 


2113 


1722 


2114 


4016 


21JS 


1756 


2116 


0000 


2117 


0617 


2120 


2215 


2121 


0124 


2122 


4004 


2123 


1123 


2124 


1340 


2125 


0000 


2126 


0122 


2127 


0540 


2130 


5117 


2131 


2540 


2132 


2325 


2133 


2205 


2134 


7700 


2135 


0617 


2136 


2215 


2137 


0124 


2140 


4023 


2141 


0115 


2142 


0540 


2143 


0411 


2144 


2313 


2145 


5023 



ME83. TEXT "fORMAT DISK 



"ES«. TEXT "»Rt rou SURtt" 



TEXT "rONIAT SAME OISKISJ A6A1NT" 
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2146 


5140 




2147 


0107 




2150 


0111 




2151 


1677 




2152 


0000 


PAliE 




2200 






/ 




2200 


klRKSUFa, 

/ 

HlTRKl, 




2200 




2201 


LOTRKa. *| 

/ 




2577 


ENOBUF". ♦377 
/ 



/CONSOL SRC -V^-R0- CONSOLE PACKAGE 

/LAS* LALL CSCKSN UR JHS XCSSti 

/THIS HILL REAU THE SWITCH REGISTER PRUH THE PLACE SPECIFIED 

/BY LOCATION 20 BIT 0, 

/THE PKOSRAN SHOULD CHECK FOR A CONTROL CHARACTER FRON THE TERMINAL 
/EVERT FIVE(5) SECONDS OR SOONER. 

/LOCATIONS THAI NEED TO BE SET UP FOR USING THE CONSOLE PACKAGE, 

/CNTVAl in XCSHASS this location UETERHINDS the NUMBER OF 
/PROGRAM COMPLETIONS THAT ARE NEEDEO BEFORE THE PASS MESSAGE IS TYPED 
/THE VALUE SHOULD PUT THE PASS NESSAGE OUT IN THE RANGE OF 1 TO 5 MINUTES, 
/THIS SHOULD BE 1 POSITIVE NUNBER. 

/CBSTRf THIS IS FOUND IN CNTKL ROUTINE CONTROL R PART 

/IT IS THE RETURN KHEN CONTROL R IS ENTERED (RESTART PROGRAM) 

/THE RETURN JUMPS TO «008» RHICH CONTAINS C8STRT SO PUT THE LABEL C8STRT 

/HHENE YOU RANI TU RESTART THE PROGRAM, 

/SETUPl IN XC8ERR THIS IS THE MASK BIT FOR HALT ON ERROR 
/PLACE THE CORRECT BIT IN THIS LOCATION FOR HALTING ON ERRORS, 

/SETUPi IN XCartSS THIS IS THE MASK FOR HALT A END OF PASS, 

/THE CALL TABLE Is A CONDITIONAL ASSEMBLY. 

/TO ASSEMBLE TME CALL REMOVE THE / BEFORE CONSOL>0, 

/IN COMBINING THE CONSOL PACKAGE TO • DIAGNOSTIC, 

/THE CALL TABLE IS TO BE AT THE BEGINNING UF A PROGRAM, 





/CONSOL'0 




6661 


PSKFl 


6661 


6662 


PCLF« 


6662 



/RKtC/RKeL DI9« FORHtTrER PKOGHim HD-US-DnRKD-El 



6663 
6664 
666; 

6034 
7701 
6aB7 
7121 
75B1 
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P9KE* 


6663 


P8TB« 


666a 


PSIt- 


6665 


OTFi 


6eD« 


»CL« 


77BI 


C»F« 


6ei>7 


NOL" 


7(lil 


MOAi 


75BI 



izte 



I 

/CSP*99 

/This 15 CiULEU »T TMt END OF t»CM PKllb««N CUnPLtTION 

/THE VALUE OFt« CnTVAL** WILL BE DETtRMINtU by THE TIME IT TA 

/The PhOGRAM TU COHPLETE this HANY C6PASS TO BE IN THE 1 TO 

/RANGE 

XCSPAS 
C6PA9S 

HLT /HALT IF NDN C0N90L P 

STARTl /CONTINUE RUNNING THI 



**ilitik*t*«**ik*ik**********«****** 



KE9 

HINUTE 



/ 


C8PA9S"JH9 


/tx. 


OP CALL 




/ 


/ 


JHP 



ACKAGE 
9 PROGRAM 



/RETURN TO LOCATION CALL PLU9 ONE WITH THE AOD IF NON CONSUL PAC»»GE AND HLT 

/IP CONTINUE TU RUN THEN RETURN TO CALL PLUS2 AC'B 

/THE LOCATION atTUPJ 19 THE HA9K BIT FUR THE MALT AT END OF PA99 

/CHECK THAT IT 19 CORRECT FOR IHt CURRENT PROGRAM 

/CALL9 USED 8Y »CePAS ARE CHKCLA-XCBCHLF-XCB0CTA-XC6SW-XCBPNT-XCBIN0- 



■i^1^ 


0000 XCBPASi 






3«21 


7200 


CLA 






s^aa 


4777' 


JH9 




CHUCLA 


3BD3 


5212 


JMP 




DOPACK 


3^94 


4776" 


JM9 




CBGET 


3005 


4262 


JMS 




XCBSW 


3026 


0375 


AND 




1400 


3007 


7640 


SZA 


CLA 




3010 


3600 


JHP 


I 


xcePAS 


3011 


5230 


JHP 




C8BT1 


3012 


4232 DOPACK, JM9 




CKCOUT 


3013 


5230 


JHP 




CBBYl 


3014 


2250 


I9Z 




PASCNT 


301S 


4774' 


JH9 




XCaCRLF 


3016 


4303 


JH9 




XC6PNT 


3017 


3053 


HE8PAS 




3020 


1250 


TAD 




PASCNT 


3081 


4773' 


JH9 




xceocTA 


3022 


4774* 


JHS 




XCBCRLF 


3023 


4776' 


JMS 




CBGET 


3024 


4262 


JMS 




XCBSW 


3025 


0375 SETUP2. AND 




1400 


3026 


7640 


SZA 


CLA 




5027 


4772' 


JMS 




XCBINO 



/19 WORD ii BIT 3 ACTIVE C0N90LE? 

/IS CLASSIC 

/GET THE RtGI9TERS. 

/DEACTlVt C0N90L CHECK SR 9ETTING 

/FOR MALT ON END OF C6PASB 

/1» MALT CONTINUE 

/GO TO HALT 

/CONTINUE ON RUNNING PROGRAM 

/CLASS CHECK CSPASS COUNT 

/CSPAS9 COUNT NOT DONE REDO PROGRAM 

/CBPaSS COUNT DONE SET CSPASS COUNT 

/CBPWNT BUFFER 

/ 

/GET NUHBER 

/CONVERT IT TO ASCII 

/DO A CARRIAGE RETURN 

/GET THE REGISTERS. 

/CHECK A HALT AT END OF CBPA9S 

/MASK BIT 

/MALT "1 NO SKIP CONTINUE '0 

/STOP PROGRAM EXECUTION-LOOK FOR INPUT 



/RKSE/RK8L DISK FORMATTER PROGKAMI MD.B8-0MRKD-D 



3030 


2200 


C6BY1, 


ISZ 


XCBPAS 


3031 


5600 




JHP I 


XCBPAS 


3032 


0000 


CKCOUT, 







3033 


1251 




TAD 


DOSET 


3034 


7640 




SZA CLA 




3035 


5242 




JMP 


NOSET 


3036 


1252 




TAD 


CNTVAL 


3037 


7040 




CMA 




3040 


3247 




DCA 


OOCNT 


3041 


2251 




ISZ 


DOSET 


3042 


2247 


N09ET, 


ISZ 


DOCNT 


3043 


5230 




JMP 


CBSYl 


3044 


3251 




DCA 


DOSET 


3045 


2232 




182 


CKCOUT 


3046 


5632 




JMP I 


CKCOUT 


3047 


0000 


OOCNT, 







3050 


0000 


PASCNT, 







3051 


0000 


OOSET, 







3052 


0000 


CNtVAL, 







3053 


04U 


MESPAS, 


TEXT 


"OHRKOI 


3054 


2213 








3055 


0404 








3056 


4040 








3057 


2001 








3060 


2323 








3061 


400i) 









PAL10 V142A 22-FEB-77 
/BUMP RETURN 



/CHECK IP SET UP NEEDED 

/BaSET UP CSPASS COUNT VALUE 

/IaCBPaSS count VALUE OK 

/C8PAS6 COUNT VALUE ON 

/GET COUNT VALUE FOR THIS PROG 

/SET TU NEGATIVE 

/STORE IN HERE 

/INDICATE VALUE SET UP 

/COUNT THE NUMBER OF PASSES 

/EXIT POR ANOTHER PASS 

/SET TU CBPRNT CBPASS 

/9UMP RETURN FOR 

/CSPASS CBTYPE OUT 



PAGEI 0039 



/CBCKSw 

/THIS ROUTINE LAN BE USED INPLACE OF A READ THE SWITCHES LAS, 

/ROUTINE THAT WILL CHECK WHERE TO READ THE 

/Ce SWITCHES FHOM IE. FROM PANEL OR PSEUOO SWITCH REGISTER 

/The SELECTION IS DETERMINED BY THE STATE UF BIT IN LOCATION 21, 



/CSCKSWi 
/EX. JMS 



JMS XCBSW 
XCSSW 



/REAU THE CSSWIT REGISTER 

/RETURN WITH THE CONTENTS OF SWITCH REGISTER 



/RETURN TO NEXI LOCATION FOLLOWING CALL WITH THE AC" TU VALUE OF CBSWIT SETTING 
/CALLS USED ARC-XCeCKPA- 



3062 
3063 

3064 
3065 
3066 
3067 



4771' 

7000 

1021 

7710 

7614 



XCSSW, it 



JMS xca 

NOP 

TAD 21 

SPA CLA 

7614 



/GO CHECK THE IF ANY CONTPL 

/GET WU FOR INDICATOR 

/CHECK IF FROM PANEL 4000 

/DO LAS ANU SKIP GET FROM PANEL WITH LAS 



/RKSt/RKd DISK FORMATTER PROGKAM) MD-US-pnRKO-D 



3t7t laie 



T»D 



P»Llil VJ«B» 2S.FEB.77 



/PSCUDU 3N1TCH 

/EXIT "ITM STATUS BIT IN »C. 



fmti eete 



/**«*»******«ft**t***t*************««*«*******«**** 



t*********«t***ft**** 



/CSTTn 

/TnIS HUUTINE "ILL LOOK FOR « INPUT l-RUM THE TERMINAL 

/AND RtHOVE ANt PARITY BITS, THEN MARE IT B BIT ASCI, 

/ C6TTT1" JM» KCSTTY 

/E». JMS XCBTTYI /REAU CMAK FROM TMt CUN50L UEVICE 

/ /RETURN TU CALL PLUS ONE AC CONTAINS THE CHAR 

/CALLS USED -NUNt. BUT CflCHAR IS OFF PASt ANU IN ROUTINE CALLED XC6ECH0 



3B72 


eegg 


/ 

»CBTTY, 


» 




3B73 


bust 




KSF 




3aT4 
3B75 


5273 
61136 




JHP 
KRB 


• •1 


3eT6 


2372 




AND 


1177 


3BTT 


1367 




TAD 


li»i 


3iae 


3766' 




OCA 


C8CHAR 


3iei 


1766' 




TAO 


CaCHAR 


3ie2 


S672 




JHP I 


XCBTTY 



/LOOK fOH KEYBOARD FLAG 

/6ET CHAR 
/MASK hOR 7 BITS 
/ADO THE EIGTH BIT 
/STORE IT 

/EXIT 



/THIS ROUTINE "ILL TYPE THE CONTENTS OF TMt C8 PRINT BUFFER, TMt LOCATION 

/OF THE BUFFER "ILL BE IN THE A0DR8 FOLLO^XNS THE CALL, PHINTINS OF THE SUFFER 

/"ILL STOP "HEN A me CHAR IS OtTECTEU. CHARACTERS ARE PACKED e PEH WORD. 



/EI. 
/ 



CSPRNT* JH3 XCBPNT 



JMS 
MES877 



/C8PRNT THE CONTENTS OF THE FOLLOWING BUFFER 
/LOCATION OF CBPRNT BUFFEK 



/CBPRNt "ILL USE THE LOCATION POLLO"XNii THt CALL AS THE POINTER FOR THE 

/cbprni routine, keturn to call plus t"u "ith aci e 

/CALLS used ARE-XCBTYPE-XCSPNT 



31B3 zeee 

3ieii 7)D0 

3185 17813 

3106 3336 



XCBPNT, 

CLA CLL 

TAD I XCBPNT 

OCA PT5T0R 



/GET CBPRNT BUFFERS STARTING LOCATION 
/STORE IN PTSTOR 



/RKSt/RK(L DISK FORMATTER PROGKAMI MD>I«S-UMRKD-D 



31(17 


2323 


ISZ 


XCBPNT 


Site 


1736 C6D01, TAD I 


PTSTOR 


3111 


2365 


AND 


C7TB2 


3112 


7452 


SNA 




3113 


5723 


JMP I 


XCBPNT 


3114 


7522 


SMA 




3115 


7222 


CML 




3116 


7221 


lAC 




3117 


7212 


RTR 




3122 


7212 


RTR 




3121 


7212 


RTR 




3122 


4764' 


JMS 


XCSTYPt 


3123 


1736 


TAD I 


PTSTOR 


3124 


2363 


AND 


12277 


3125 


7452 


SNA 




3126 


5723 


JMP I 


XCBPNT 


3127 


1362 


TAO 


13742 


3138 


7522 


SHA 




3131 


1361 


TAD 


C122 


3132 


1362 


TAD 


ce«B 


3133 


4764' 


JMS 


XCBTYPt 


3134 


2336 


ISZ 


PTSTOR 


3135 


5312 


JMP 


CBUOl 


3136 


2222 PTSTOR, 2 
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/BUMP RETURN 

/GET OATA "ORO 

/MASK FOR LEFT BYTE 

/CHECK IF 22 TERMINATE 

/EXIT 

/IS AC MINUS 

/MAKE UHAR A 322 AFTER ROTATE 

/MAKE CHAR A 222 AFTER ROTATE 



/PUT CHAR IN BITS 4-11 MAKE IT B BIT ASCII 

/CBPRNT IT ON CONSOLE 

/GET DATA "OKO 

/MASK FOR RIGHT BYTE 

/CHECK IF 22 TERMINATOR 

//EXIT 

/ADD FUDGE FACTOR TO DETERMINE IF 220 

/OR iltn IS TU BE ADD TO CHAR 

/ADO 122 

/ADD 202 

/CBTYPE ONLY BITS 4-U 

/BUMP POINTER FOR NEXT WORD 

/DO AGAIN 

/STOR FOR CBPRNT BUFFER 



/C6PAU3 

/THIS ROUTINE "ILL CHECK IF THE CONSUL PACKAGE IS ACTIVE, IF ACTIVE 
/IT RILL RETURN TO CALL PLUS ONE AC" 0. ANU DO THAT INSTRUCTION. 
/IF THt CONSOL PACKAGE IS NOT ACTIVE THE CALL RILL BE REPLACED 
/"ITM A 7422 HALT AND THEN RETURN TO THE MALT, 

/ 

/ 

/ 

/EX. 

/ 

/ 

/ 



CSPAUS" JMS XCBPAU 

JMS XCSPAUS 
ANYTHING 



/CHECK IF ON ACTIVE CONSOL IF NOT HALT HERE 
/RETURN HERE IF ON ACTIVE CONSOL 



/CALLS USED ARE -CHKCLA- 





2222 


XCBPAU, 










7322 




CL* 


CLL 






4777« 




JMS 




CHKCLA 




5352 




JMP 




CBD03 




7242 




CHA 








1337 




TAD 




XCSPAU 




3337 




DCA 




XCBPAU 




1357 




TAO 




17422 




3737 




DCA 


I 


XCBPAU 




5737 


CBDD3, 


JMP 


I 


XCBPAU 



/CHECK LOC 22 BIT 3 CONSOLE BIT 

/GO UO CONSOL PART RETURN CALL tl 

/DEACTlVe CONSOLE PACKAGE PUT HLT IN CALL 

/GET CORRECT RETURN AODRS 

/SET UP RETURN 

/GET CODE FOR HLT 

/PUT HALT IN CALL LOCATION 

/GO TU HALT OR RETURN TO NEXT LOCATION 



/RKSt/HKeU DISK rOHM«TTER PROSK*H| HO-ma-OMRKO-D 



P»Ll«l V14S» 8S-rEb-7T 



PASEI 8B«2 



3157 


7482 


3160 


elite 


3t6l 


eiee 


3162 


3740 


3163 


0877 


3164 


3677 


3165 


77BB 


3166 


3675 


316T 


0200 


31TB 


0177 


3171 


3641 


3172 


3435 


3173 


3608 


3174 


3623 


3175 


0400 


3176 


3424 


3177 


4000 



3200 






*****************, 



***«***« 



/CdCNTK 

/THIS MOUTINE WIUU CHECK FOR THE PRESENCE OF CUNTROL CHARACTERS 
/IT KILL CHECK FOR THE FOLLOWINB CHAH t-R-U-U-S '•"•"CIERS 
/ CdCNTR* JM6 XcaCNT 



/E«. 


JH9 


xcecNTR 


/ 


JHP 


ANTTHING 


/ 


JHP 


ANYTHING 



/CHECK FOR CONTROL CHARACTER 

/LUC FOLLOWINS CALL IS FOR CONTINUING THE PROGRAM 

/LUC. IS FOR RETURN IF INHODE SET AND NOT CNTRL CHAR 



/RETURN IS TO LALL PLUS ONE IF CONTlNUt 

/RETURN IS TO CALL PLUS TWO IF INHOOE SET ANU NOT CONTROL CHAR 

/RETURN 15 TO CALL PLUS TWO IF INHOOt IS NUT SET AND NO 

/CUNTRUL CHAR ..THIS RILL PRINT THE LHARACTER AND A 7 

/CLEAR THE AC AND RETURN CALL*2, 

USED ARt.CHKCLA-XCeTYPE-«C«CRLF-C»GET-UPAH0w-XC8TYI.XC8P8R- 



/SAVE IHE AC 

/CHECK LUC. 22 BITj FOR CONSOLE HIT 

/ON AcriVfc CONSOLE 

/OEALTIVE C0N50LEGET AC FOR RETURN 

/EXIT NOT ON ACTIVE CONSOLE 







/CALLS 

/ 

/ 

/ 

XCSCNT, 


USED 


ARt.CHKCLA 


3200 


0000 







3201 


3777* 




DCA 


ACSAVE 


3202 


«776' 




JHS 


CHKCLA 


3203 


5206 




JHP 


>*S 


3204 


1777' 




TAD 


ACSAVE 


3205 


5600 




JHP 


I XCBCNT 


3206 


6004 




GTF 




3207 


3775' 




DCA 


FLSAVe 


3210 


7501 




HOA 




3211 


3774' 




DCA 


noSAVE 


3212 


3255 




DCA 


INDEXA 


3213 


1257 




TAD 


XTABLA 



/SAVE THE no 

/SET OiSPLACEHENT INTO TABLE B 

/GET AUDRS OF TABLE A 



/RK8E/RK8L DISK FORMATTER PROGRAM; MD-0a-OHRKD-D 
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la!13 PAGE 1-29 



PAGE: 0043 



3214 


3256 




DCA 


GETOAT 


3215 


1656 


REUOA, 


TAD I 


GETOAT 


3216 


74S0 




SNA 




3217 


5226 




JHP 


OONEA 


3220 


1773' 




TAO 


CaCHAR 


3221 


7650 




SNA CLA 




3222 


5243 




JMP 


GOITA 


3223 


2255 




ISZ 


INOEXA 


3224 


2256 




ISZ 


GEIOAT 


3225 


5215 




JMP 


REDOA 


3226 


1772' 


OONEA, 


TAD 


INMODE 


3227 


7640 




»ZA ClA 




3230 


5240 




JMP 


EXITA 


3231 


1773' 




TAO 


C8CHAR 


3232 


4771' 




JHS 


XCaTVPE 


3233 


1370 




TAD 


1277 


3234 


4771' 




JMS 


XCeTYPE 


3235 


4767' 




JHS 


xcacRLF 


3236 


2200 




ISZ 


XCBCNT 


3237 


5600 




JMP I 


xcacNT 


3240 


2200 


EXITA, 


ISZ 


XCBCNT 


3241 


1773' 




TAO 


CeCHAR 


3242 


5600 




JMP I 


XCBCNT 


3243 


1773' 


GOITA, 


TAD 


CSCHAR 


3244 


1366 




TAO 


(100 


3245 


3773' 




DCA 


CaCHAR 


3246 


1260 




TAD 


XTABLB 


3247 


1255 




TAD 


INDEXA 


3250 


3254 




DCA 


GOTOA 


3251 


1654 




TAD I 


GOTOA 


3252 


3254 




DCA 


GOTOA 


3253 


5654 




JMP I 


GOTOA 


3254 


0000 


COTOA, 


0000 




3255 


0000 


INDEXA, 


0000 




3256 


0000 


GETOAT, 


0000 




3257 


3261 


XTABLA, 


TABLA 




3260 


3271 


XTABLB, 


TABLB 




3261 


7575 


TABLA, 


7575 




3262 


7564 




7564 




3263 


7557 




7557 




3264 


7556 




7556 




3265 


7555 




7555 




3266 


7573 




7573 




3267 


7574 




7574 




3270 


0000 




0000 




3271 


3347 


TABLB, 


CNTRLC 




3272 


3336 




CNTRLL 




3273 


3300 




CNTRLQ 




3274 


3311 




CNTRLR 




3275 


3320 




CNTRLS 




3276 


3344 




CNTRLE 




3277 


3400 




CNTRLD 








/CONTROL a 





/CONTAINS POINTER TO CONTROL CHAR 

/GET CONTROL CHAR FROM TABLE 

/CHECK FOR A END OF TABLE 

/END OF TABLE NO CONTROL CHAR 

/COMPARE CHAR TO CONTROL CHAR 

/0 If match 

/MATLH 

/NO MATCH NOT END OF TABLE REOU 

/BUMP INDEX FOR EXIT WHEN CONTROL FOUND 

/BUMP GETDAT FOR COMPARE OF NEXT CNTRL CHAR. 

/CHECK IF PROGRAM EXPECTS CHAR 

/l.CHAR EXPECTED 0. NO CHAR EXPECTED 

/CHAR EXPECTED 

/GET CHAR • NOT CONTROL t NOT EXPECTED 

/CaPRNl CHAR 

/SET CUDE FOR "7" 



/BUMP RETURN 

/EXIT tALL*2 

/BUMP RETURN FOR MAIN PROGRAM CHECK OF CHAR 

/PUT CHAH IN AC. 

/EXIT 

/SET THE CONTENTS OF CHAR 

/ADD 100 TO FORM A GOOD ASCII CHARACTER 

/RESTORE COFFECT CHAR 

/SET START OF TABLE B 

/GET NOW FAR INTO TABLE 

/STORE IT 

/GET THE ROUTINE STARTTING ADDRESS 

/8TUHE IT IN MERE 

/GOTO tONTROL CHAR ROOTINE 

/ADD OF CNTRL ROUTINE TO EXECOTE 

/DISPLACEMENT INTO CNTRL TABLE 

/location of addrs of control char, 
/addrs of TABLEA 

/ADDRS or TABLES 

/CNTRL C BACK TO MONITOR 203 

/CNTRL L SWITCH ERROR PRINTTING DEVICE 214 

/CNTRL START DISPLAYING CHAR. AGAIN 221 

/CNTRL R BACK TO BEGINNING OF PROGRAM 222 

/CNTRL S STOP SENOINS CHAR TO DISPLAY WAIT FOR CNTRL Q 223 

/CNTRL E CONTINUE WITH PROGRAM 205 

/CONTROL CHANGE SWITCH RE6ISTER ON FLY 



/RK«E/RK«|. DISK FDRMJTTEB KR0SK4MI ND-B6-0NRK0-0 



PtLl' VIIJ* ii-rtU'Tt 



put l-iB 



PAGEi eeun 



/5r»RT StNDINB CHAK, TO THE DI»PL»» 

/TMIS "ILL RETURN CONTROL TO CALL THAT WAS SET bY 

/THE CALL fOR tONTROL S. 



33ee 


3772' 


CNTRLO, 


OCA 




INHODE 


ssei 


1334 




TAO 




CeSETS 


3328 


7648 




SIA 


CL« 




33e3 


5316 




JMP 




BYHETR 


3314 


4765' 




JHS 




C6GET 


3315 


5600 




JHP 


I 


XCSCNTR 


330* 


3334 


SYRETR, 


OCA 




CeSETS 


33B7 


4765* 




JMS 




CSGET 


33U 


5735 


/ 


JMP 


1 


C8RETR 






/ 

/CUNTRUL R 










/BH TO 


THE QUESTION CeSI 


33U 


3764' 


CNIRLR. 


OCA 




TTYLPT 


33ii 


3334 




OCA 




CeSETS 


3313 


3772' 




OCA 




INHOOE 


3314 


4763* 




JHS 




UPARON 


3315 


3762' 


caiiy4, 


DCA 




CeSHST 


3316 


5717 




JHP 


I 


«DUSkl 


331T 


0200 


XOOSa, 

/ 


BGN 










/ 

/CONTROL S 










/JIOP BtNOING LMAH, TO 1 
/ 


3322 


1334 


/ 

CNIRL5, 


TAO 




CaSETS 


33ai 


7640 




92A 


CLA 




3328 


5326 




JHP 




C6U07 


3383 


7001 




lAC 






3324 


1200 




TAD 




XCSCNT 


3325 


3335 




DCA 




C8RETR 


3326 


2334 


C6U07, 


ISZ 




CaSETS 


332T 


4761' 




JHS 




XCSTTYI 


3330 


4765- 




JHS 




CSGET 


3331 


4200 




JHS 




XCSCNTR 


3332 


7200 




CLA 






3333 


5320 




JHP 




CNTRLS 


3334 


0000 


CesETSi 


1 






3335 


0000 


CSRETK, 


r 







/StI SUPT hLAG FOR UNEXPECTED CHAR 
/CHECK If CONTROL S TYPED IN 

/CONTRUL S TYPED IN 

/NO CONTROL S TYPED PREVIOUSLY 

/LEAVE VIA CNTR ENTRY ADDRESS 

/CLEAR THE 8UPT FLAG 

/RESTORE REGISTERS 

/EXIT TO AUDNESS SET SY CONTROL S 



/CLEAR THE TYPE FLAG SET TO TTY 
/CLEAR SOFT FLAG FOR CNTRL S 

/PRINT THE " AND CBCHAR 

/CLEAR FLAG FOR CNTRL D OR R 

/GO TO AUURS OF C6SHIT 

/OOSH IS LABEL FOR CSSHIT SUESTION 



TO DISPLAY UNTIL A 'U IS RECEIVED 



/IFl UU NOT STORE IN C8RETR 

/OONT SET UP CBRETR 

/HAKE RETURN CALL PLUS 2 

/GE' RETURN FOR THIS CALL 

/STOKE IT HERE FOR USE BE CNTRQL U 

/SET FLAG TO SAVE CALL 

/LOOK FUR THE INPUT 
/GET REGISTERS 

/CHECK FOR THE CONTROL CHAR 

/IF NOT A CNTRL SRC REASK 

SETSi 

RETR, 
/ 

/SRITCB OUTPUT FROH ONE OUTPUT DEVICE TO ANOTHER - THE TWO OUTPUTS ARE THE 
/CONSOLE AND THE PKINTER WITH DEVICE CDOE 66. 



3336 


1764' 


CNTRLL, 


TAO 


TTYLPT 


3337 


7040 




CHA 




3340 


3764' 




OCA 


TTYLPT 


3341 


4763" 




JHS 


UPAROW 


3342 


4765' 




JHS 


CSGET 


3343 


5600 




JHP I 


XCSCNT 



/GET PRESENT CBSWIT INUICATUR 

/COHHLEHENT IT 

/STOH NEW CBSWIT 

/CBPRNT " ANU CHAR ON NEW DEVICE 

/RESTORE THE REGISTERS 

/EXIT 



/RKBE/RK8L DISK FURHATTER PROGHAHl HD-VB-DHRKD'O 



PAL10 V142A 
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/CONTROL E 






/CONTINUE RUNNING FROH A INOI 
/ 


3344 


4763' 


/ 
CNIRLE. 


JHS UPAROw 


3345 


4765' 




JHS CSGET 


3346 


5600 


/ 


JHP I XC8CNT 






/CONTRUL C 






/RETURN 


TO HONITOR CONTROL C 


3347 


3764' 


CNTRLC, 


OCA TTYLPT 


3350 


4763* 




JHS UPAROW 


3351 






CDF CIF 


3352 






CAF 


3353 




/ 


JHP I 17600 


3360 


7600 


/ 

/ 




3361 








3362 








3363 








3364 








3365 








3366 








3367 








3370 








3371 








3372 








3373 








3374 








3375 








3376 








3377 












PAGE 





INQUIRE OR ERROR 



/PRINT THE CONTROL CHAR 
/GET THE REGISTERS 
/RETURN TO CALL PLUS ONE 



/CLEAR THE LPT FLAG TO PRINT ON DISPLAY 

/CSPWNT A- AND LETTER IN CHAR 

/GO TO FLD 

/CLEAR THE WURLD 

/GO TO DIAGNOSTIC HONITOR 



/CONTRUL 

/CHANGE THE SWITCH REGISTER ANYTIME CNTRL D ANU RETURN TO 

/THE PROGRAH RUNNING. 





4215 


CNTRLOi 


JHS 


UPAROW 




1213 




TAD 


CSSETD 




7640 




ill. CL« 




5207 




JHP 


CSUOll 




1777' 




TAO 


XCBCNT 




3214 




DCA 


C8RETD 




2213 




ISZ 


CBSETO 




4256 


C6D011, 


JHS 


XC6PSW 




3213 




DCA 


CBSETO 




4224 




JHS 


CBBCT 



/CHECK IF THE RETURN ADDRS IS SAFE 

/DO NOT CHANGE THE RETURN ADDRS 
/GET THE RETURN ADDRS AND SAVE IT 
/SAVE THE RETURN HERE 
/INDICATE RETURN SAVED DONT OISTROY 

/GO CHANGE THE SWITCH REGISTER 
/CLEAR THE FLAG 
/RESTORE THE AC HO LINK ETC 



/RKSt/NKtL DISK FORHtTTER PROGHtMl MD.Ue-DnRKD-D 
3112 56U J1P I C9KET0 



P1L1B Vl«2« ii'H.<S-17 
/RETURN TO THE PROGRAM 
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3413 esee 
3'ii<i eaee 



casETD, e 

CSRbTDi e 



3415 


ems 


3416 




3«1T 




3«2e 




3421 




3422 




3423 





/THIS KILL TYPt 4 UP ARROW AND THE CHAR IN C6CHAR, 



UPAROW, i 



TAD 


C336 


JHS 


«c8T»pe 


TAD 


CSCHAR 


JUS 


XC8TYPE 


Jns 


xcecRLF 



/CtPRNT THE 
/coot fOR * 



AND THE CHAR CSTYPED IN 



/CSTYPt THt CHAR 



3424 


me 


3425 


72190 


3426 


1772 


3427 


7421 


3439 


1771 


3431 


7BiJ4 


3432 


72ae 


3433 


177B 


3434 


5624 



CSbfcT, 



ft************** 



CLA 








TAO 


HGSAVE 






MOL 




/RESTORE 


HO 


TAD 


KLSAVe 






RAL 




/RESTORE 


THE LINK 


CLA 








TAO 


AC9AVE 


/RESTORE 


THE AC 


JMP I 


C8GET 


/GET THE 


REGISTERS 



/*********«********«*****«*******•*******«***********«***«»**«•****** 

/C6IN0U 

/CSINSU ROUTINE HILL PRINT A RAITING 

/AND THE PROGRAM IS EXPECTING A CONTROL CHAR INPUT 

/If CONTINUE FRO" CONTROL CHAR RETURN iS CALL PLUS ONE 

/If NU CONTROL CHAR ENTERED THtN RAITING IS REPRINTED 

/AND PROGRAM WAITS FOR A CONTROL CHAR AGAIN, 



/EX, 
/ 



CSINSU • 



JMS XCSINO 
DO ANY1H1NG 



JMS XCSINO 



/C» WILL PRINT A WAITINGANO WAIT FOR INPUT 
/RETURN IS CALL PLUS ONE AC ■» CONTINUE 



/CALLS USED ARC -CHKCL A-XCSPNT-XCSTY l-CBGET-XCSCNTR- 



3435 Bene 

3436 line 

3437 4767* 
344e 74te 
3441 5635 



CLA CLL 

JMS CHUCLA 

8KP 

JMP I XCeINO 



/CHECK LUC 22 bIT 3 CONSOLE BIT 
/ACIIVE CUNSULt PACKAGE 
/NOT CUNSULE LEAVE 
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4766* 




JMS 


XCBPNT 






3451 




WATHES 




/INUUIR WAITTING 




4765' 




JMS 


XC8TTYI 


/GET CHARACTER 




4224 




JMS 


CSGET 






4777' 




JMS 


XCeCNTR 


/CHECK IF CONTROL CHARACTER 




56J5 




JMP 1 


xcaiNo 


/EXIT AND CONTINUE 




5236 




JMP 


XCSING'fl 


/REASK 




27B1 


WATMES, 


TEXT 


"WAITING " 






1124 












1116 












11740 










3455 


eeee 











/CS9WI [ 

/ROUTINE WILL CHECK IF CONSOL IS ACTIVE IP IT IS ACTIVE DISPLAY 

/5w QUESTION , IN NOT ACTIVE IT WILL NUT PRINT THE SW UUESTION BUT 

/RETURN TO CALL PLUS ONE AC'B, 

/C8SWII WILL SET UP THE PSEUDO SWITCH 

/RtGIStER WITH THE NEW DATA ENTERED 

/ 

/ C8SWIT ■ JMS XC8PSH 



/Ex, 



JMS 



XCtPSW 



/SET UP PSEUDO CBSWIT REGISTER IF 

/ON THE CONSOL PACKAGE, RETURN IS CALL PLUS ONE AC 



/CALLS USED ARE .CHKCLA.XC8PSW-XCePNT-XC80CTA-XCBTYPE- 





eeae xcapsw, e 






4767' 


JMS 


CHKCLA 




74ia 


SKP 






5656 


JMP I 


XC6PSW 




1345 


TAD 


ceswsT 




7640 


SZA CLA 






5764' 


JMP 


CS8Y4 




2345 


ISZ 


CSSWST 




4766" C8RDPS, JMS 


XC6PNT 




3547 


MESA 






ie2e 


TAO 


20 




4763' 


JMS 


XCSOCTA 




1362 


TAO 


(40 




4775' 


JMS 


XC8TYPE 




2761' 


ISZ 


INMODE 




476B' 


JMS 


XCSECHO 




4315 


JMS 


T8TCHA 




1774' 


TAO 


CSCHAR 




3020 


OCA 


20 




1357 


TAO 


(•3 




3346 


OCA 


TMPCNT 



/CHECK LOC 22 BIT 3 CONSOLE BIT 

/ACTIVE CONSOLE 

/OEACTIVE CONSOLE PACKAGE 

/RETURN WITHOUT ASKING PSEUUO SWITCH 

/IB THE SOFT FLAG SET FOR SWITCH* 

/SKIP IF ONE ENTRY AT ATIME OK 

/SECUNU ENTRY WITH OUT A EXIT GO TO SW QUESTION 

/FIRST ENTRY SET FLAG 

/C8PRNT SR« 

/GET CONTENTS OF SW 
/CONVERT IT TO ASCII 
/GET SPACE 

/SET FLAG FOR CHAR EXECTED 
/LOOK FOR INPUT 
/NOT CONTROL TEST IT IS LEGAL 
/STORE NEW CHAR IN SW REG 



/GET A MINUS 3 
/STORE IN TEMP COUNT 



/RKaL/RK8L DISK FOKMiTTER PROSHAMI MD-l9e>0HRK0-D 



3593 


4768" 


StTCHl, 


JMS 


XC6ECMU 


3584 


4315 




JMS 


TSTCMA 


3505 


1828 




T»0 


28 


3506 


7186 




RTL CLU 




35BT 


7884 




R«L 




351B 


1774' 




T«0 


CSCHAR 


3511 


3828 




DC* 


28 


3512 


2346 




ISZ 


TMPCNT 


3513 


5383 




JHP 


StTCHl 


35U 


5342 




JMP 


ENUIT 


3515 


8888 


TSTCH*, 


8 




3516 


7841 




cu 




3517 


1356 




T»D 


(215 


352a 


7658 




SNt CLA 




3521 


5342 




JKP 


ENDIT 


3522 


1774* 




TAD 


CBCHAR 


3523 


1355 




TtO 


C-268 


3524 


7718 




SPA CLA 




3525 


5336 




JMP 


tRHl 


3526 


1774- 




TAD 


CBCHAR 


3527 
3530 


1354 
7788 




TAD 

SHA CLA 


(•270 


3531 


5336 




JMP 


tKRl 


3532 


1774' 




TAD 


C6CHAR 


3533 


8353 




AND 


(7 


3534 


3774' 




DCA 


CeCHAR 


3535 


5715 




JHP I 


TSTCHA 


3536 


1352 


ERBl, 


TAD 


1277 


3537 


4775' 




JHS 


XCSTYPE 


3548 


4773' 




JMS 


XCSCRLf 


3541 


5266 




JMP 


C6HDPS 


3542 


4773* 


ENUIT, 


JMS 


XCSCRLF 


3543 


3345 




DCA 


CSSWST 


3544 


5656 




JMP I 


XCBPSW 


3545 


8888 


cesNSTi 


8 




3546 


8888 


TMfCNT, 


8 




3547 


2322 


nttk, 


TEXT 


>SH. " 


3558 


7548 








3551 


8888 








3552 


8277 








3553 


8887 








3554 


7518 








3555 


7528 








3556 


8215 








3557 


7775 








3568 


3663 








3561 


3676 








3562 


8848 








3563 


3688 








3564 


3315 








3565 


3072 
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/GET NtXT CHAK 
/CHECK IP CR « GOOD CHAR 
/GET CSSMIT REGISTER 
/ROTATE IT LEFT 3 PLACES 

/GET CHAK « ADD IT TO PREVIOUS CONTENTS 

/SAVE NEN CONTENTS 

/BUMP COUNT 

/JMP BACK t BET NEXT CHAR 

/END 4 CHAN CBTVPED IN 

/CHPL CHAR IN AC 

/TEST IF IT IS A CARRIAGE RETURN 

/SKIP IN NOT CR. 

/MAS CARRIAGE RETURN 

/NOT CH, GET CHAR 

/CHECK IF IT IS IN RANGE 

/IF NOT POSITIVE C8ERR CHAR SMALLER THEN 260 

/CSEHR - CHAR TOO SMALL 

/GET CHAR 

/GET A -270 ♦ CHECK IF IT IS LARGER THEN 7 

/SKIP IF LESS THEN 7 

/CSEHR ON CHAR NOT IN RANGE 

/GET CHAR 

/HAS* ►OR RIGHT BYTE 

/STOKE IN CHAR 

/GET CHAR IN AC 

/EXIT 

/CBPRNI 

/J 

/ 

/EXIT • ASK AGAIN 

/DO A CR LF 

/CLEAN THE PSM ENTRY FLAG 

/EXIT ROUTINE 



PAGEl 8046 
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3566 


3183 




3567 


4088 




3578 


4122 




3571 


4124 




3572 


4123 




3573 


3623 




3574 


3675 




3575 


3677 




3576 


8336 




3577 


3200 






3600 


PAGE 
/CSOCTA 
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/OCTAL TO ASCII CONVERSION 

/THIS ROUTINE "ILL TAKE THE OCTAL NUMBER IN THE AC AND CONVERT IT TO ASCII 

/THE RESULT HILL BE PRINTED ON THE CUNSOL TERMINAL 

/ CBQCTA< JHS XCSOCT 

/ 

/EX. JHS XCaOCTA /AC CONTAINS NUMBER TO BE CHANGE 

/ RETURN IS TO CALL PLUS ONE AC>8 

/ 

/CALLS USED ARE .XCSTYPE* 



3688 8888 

3681 7186 

3602 7886 

3683 3221 

3684 1377 

3685 3222 

3686 1221 

3687 8376 
3618 1375 

3611 4277 

3612 1221 

3613 7886 

3614 7004 

3615 3221 

3616 2222 

3617 5206 
3628 5688 

3621 8888 

3622 8880 



XCeOCTi 8 



CLL RTL 




RTL 




DCA 


C8THP1 


TAD 


(-4 


OCA 


CSCKP 


TAD 


CBTMPl 


AND 


(8887 


TAD 


(268 


JHS 


XC8TYPE 


TAD 


CBTMPl 


RTL 




RAL 




OCA 


CBTMPl 


ISZ 


CSCKP 


JHP 


CSD04 


JHP I 


XCSOCT 


CBTMPl, 


8 


CSCKP, 


8 



/POSITION THE FIRST CHAR FOR PRINTING 
/SAVE CORRECT POSITIONED RORD HERE 

/STOKE COUNTER IN HERE 

/GET FIRST NUHBER 

/MASK 

/ADO THE PRINT CONSTANT 

/TYPE THE NUMBER 

/ 

/PUT NtXT NUMBER IN POSITION 

/STORE IT 

/DONE YET HITH FOUR NUMBERS 

/NOT YET DO MORE 

/DONE MITH FOUR 



/CBCRLF 

/CBTYPt CR AND LF NITH FILLERS FOLLORING EACH LF AND CR 

/ 

/ CSCRUF* JMS XC6CRL 

/ 

/EX, JMS XCSCRLF /C6PKNT A CR AND LF WITH FILL 

/ /RETURN TO CALL PLUS ONE AC 'B 
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/CALLS USED IRE .xCaTVPE* 





ueee 


XCBCRLC 


.8 








7JBa 




CL* CLL 








13711 




TAD 


(215 


/SET CUDE FOR CR 




4277 




JMS 


XCSTYPE 






1237 




T»0 


FILLER 






7a«i) 




CH« 








3240 




DCt 


FILCNT 


/8TURE FILLER IN HERE 




1373 




TAD 


(212 


/SET CUDE FOR LF 




4277 


ceuo2, 


JMS 


«C»TTPE 






2240 




ISZ 


FILCNT 


/CHECK ON FILLER CHAR 




52J3 




JMP 


CBUD2 


/TYPE A NON PRINTINS CHAR 




9623 




JHP I 


XCSCRl 


/EXIT 




Biti 


FILLER, 


0204 




/FILLER SET FOR 4 CHAR 


3640 


eeee 


FILCNT, 


a 




/COUNTER FOR FILL 



/CSCKPA 

/THIS ROUTINE RILL CHECK IF A CHARACTER HAS ENTERED FROM THE 

/TERMINAL. IFTME FLAB IS SET AND THE CONSOLE PACKAGE IS 

/ACTIVE A CHECK IS MADE TO DETERMIND IF IT IS A CONTROL CHAR, 

/IF IT VAS A CUNTRUL CHAR THEN ITS CUNTROL FUNCTION IS PERFORMED. 

/IF Not A CONTROL CHARACTER OR A CONTROL E»D-L.O. IT RILL 00 

/THE CONTROL FUNCTION AND RETURN TO CALL PLUS 2, 

/A NON CONTROL CHARACTER RILL »E PRINTtOANU A "7" IT RILL RETURN TO 

/CALL PLUS 2. 

/IF NO FLAG IS SET OR THE CONSUL IS NOT ACTIVE THE RETURN IS TO 

/CALL PLUS 1, 

/ CSCKPA' JMS XCSCKP 

/EX. JMS XC8CKPA /CALL TO CHECK IF CONTROL CHAR SET 

/ ANYTHING(5KIP) /RETURN IF NUT FLAG OR NOT CONSOLE ACTIVE 

/ ANYTHINGtJMP EXIT SKIP CHAIN) /RETURN IF NOT CONTROL OR CONTINUE CONTROL 

/CALLS USED ARE .xCeTTYI-XCSCNTR-CSGE T- 



/SAVE THE AC 

/SAVE THE FLAGS 

/SAVE THE FLAGS 

/PUT My IN AC 

/SACE THE no 

/CHECK THE KEYSOARO FLAG 

/EXIT TO CALL PLUS 1 

/CHECK LOC 22 BIT J CONSOLE BIT 

/ACTIVE CONSOLE PACKAGE 



3641 


zeez xcecKp, a 




3642 


3772' 


OCA 


ACSAVE 


3643 


6SB4 


OTF 




3644 


3771- 


OCA 


FLSAVE 


364S 


75B1 


MQA 




3646 


3770* 


OCA 


MUSAVE 


3647 


6031 


KSF 




36Se 


5261 


JMP 


C81)Y3 


3651 


4767' 


JMS 


CHKCLA 


3652 


7410 


SKP 





/RKSE/RKSL DISK FORMATTER PROGRAMi MD-KS-OHRKD.D PALIK V142A 22.FEB.77 18113 PAGE 1-37 PAGE: 0051 

/EXIT TO CALL PLUS I 

/SET THE CHAR 

/GET THE FLAGS 

/CHECK IF CONTROL CHAR, 

/RETURN IF A CONTINUE CHAR, 

/8UMP RETURN FOR CALL PLUS 2 

/SET REGISTERS 

/SAY SUOD BY 





5261 


JMP 


C8BY3 




4766' 


JMS 


XC6TTYI 




4765' 


JMJ 


C8SET 




4764' 


JMS 


XCBCNTR 




7000 


NOP 






2241 


ISZ 


XCBCKP 


3661 


4765' C8BY3, J»» 


C86ET 


3662 


5641 


JMP I 


XCBCKP 



/C8ECHU 

/THIS ROUTINE "ILL LOOK FOR A LHAR FROM THE KEYBOARD. STORE IT IN LOCATION CHAR 

/CHECK IF IT RAS A CONTROL CHARACTER - SET INMOOE - PRINT CHARACTER 

/ CBECHO ■ JMS XCBECH 

/Ex. JMS XCBEChO /LOOK FOR CONSOL CHAR C8PRNT IT 

/RETURN CALL PLUS ONE AC • CHAR CBTYPEO IN 

/CALLS USED ARE -XCSTTYI-XCBCNIR.CSOtT-XCBECH.XCBTTYPE 



3663 


0000 


XCBECH, 







3664 


4766' 




JMS 


XCBTTYI 


3665 


4765' 




JMS 


C8GET 


3666 


2276 




ISZ 


INMOOE 


3667 


4764' 




JMS 


XCBCNTR 


3670 


5663 




JMP I 


XCBECH 


3671 


4277 




JMS 


XCBTYPE 


3672 


3276 




OCA 


INMOOE 


3673 


1275 




TAD 


CSCHAR 


3674 


5663 




JMP I 


XCBECH 


3675 


0000 


CSCHAR, 







3676 


0000 


INMOOE, 








/RAIT FOR CHAR FROM KEYBOARD 

/RESTORE THE REGISTERS 

/SET INMOOE IDENTIFING THIS AS A EXPECTED CHAR 

/GO CHECK IF IT IS A CUNTROL CHAR 

/RAS A CONTROL CHAR - CONTINUE RUNNING 

/NOT A CONTROL CHAR CBPRNT IT 

/CLEAR FLAG THAT CHAR EXPECTED 

/GET CHAR IN AC 

/EXIT 



/CBTYPE 

/THIS ROUTINE "ILL CBPRNT ON THE CONSOLE OR THE LPT RITH DEVICE CODE 66, 

/ CSTYPE" JMS XCBTYP 

'EX. JMS XCBTYPE /CIPRNT THE CHAR IN THE AC. 

/ /RETURN CALL PLUS ONE AC "0000 

/DO NOT CLEAR THE LINK IN THIS ROUTINE NEEDED BYCBOCT 

/CALLS USED ARE "CBMANG-XCBCNTR-XCBPNT-XCBCRLF-XCBINQU- 



3677 


0000 


XCBTYP, 







3700 


3320 




DCA PNTBUF 


/STORE CHAR 




1321 




TAD TTYLPT 


/CHECK O'TTY 7777"LPT 




7640 




SZA CLA 




3703 


5312 




JMP XOOLPT 


/OO OUT PUT ON LPT 


3704 


1320 




TAD PNTBUF 
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37S5 


61146 




Its 




3786 


6Z4t 




TSF 




3787 


5326 




JNP 


.-I 


]7te 


6942 




TCP 




3711 


5316 




JNP 


CSdYS 


3712 


t32e 


xoolpt, 


TAD 


PNTSUF 


3713 


6666 




P5TB 


PCLF 


3714 


4322 




JH» 


CenANG 


3715 


6662 




PCLP 




3716 


7600 


CBBTS, 


7600 




3717 


5677 




JMP I 


XCHTYP 


372a 


0800 


PNTeuPi 







3721 


0000 


TTtLPT. 







3722 


0000 


CenANG, 







3723 


7200 




CLA 


/ 


3724 


1316 




TAD 


CSBV5 


3725 


3320 




OCA 


PNTBUF 


3726 


6661 




P5RF 




3727 


7410 




SKP 




373B 


5722 




JdP I 


CSHANG 


3731 


2345 




ISZ 


C8C0NT 


3732 


5326 




JMP 


.-4 


3733 


2320 




ISZ 


PNTBUf 


3734 


5331 




JMP 


• •3 


3735 


1764' 




TAD 


XCeCNTR 


3736 


3322 




OCA 


cenANG 


3737 


3321 




OCA 


TTTUPT 


374B1 


4763' 




JMS 


XCSPNT 


3741 


3746 




MESHANG 




3742 


4223 




JMS 


XCSCRLF 


3743 


4762" 




JMS 


XCBINGU 


3744 


5722 




JMP I 


C8MANG 


3745 


0000 


C9C0NT, 







3746 


1420 


MESHANG 


,TE«T 


"LPT ERROR 


3747 


2440 








375e 


0522 








3751 


2217 








3752 


lilli 








3762 


3435 








3763 


3103 








3764 


3200 








3765 


3424 








3766 


3072 








3767 


4900 








3770 


4123 








3771 


4124 








3772 


4122 








3773 


0212 








3774 


0215 








3775 


0260 








3776 


0007 








3777 


7774 









/SET CHAR 

/CSPKNT IT 

/CHECK KEYBOARD IP HUNG 

/CLEAR THE FLAG 

/CLEAR THE AC 

/EXIT 



/GET CUNSTANT 7600 

/PNTBU^ 18 NOW A COUNTER 

/SKIP UN PRINTER OONE 

/NOT DUNE YET 

/SAW FLAG UONE 

/FIRST COUNTER FAST ONE 

/CHECK IF FLAG SET YET 

/HAOE 4016 COUNTS ON FAST COUNTER 

/KEEP IT UP FOR S SEC 

/GET THE RETURN ADDRESS IN CONTROL 

/SAVE IT IN HANG 

/ALLUB PRINTING ON TTY 

/LPT ERROR 

/PRINT WAITING 

/CONIINUC TO SAVE ADDRESS 

/COUNTER FOR TIMER 
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4000 0000 

4001 7200 

4002 1022 

4003 0377 

4004 7650 

4005 Hit 

4006 5600 



/*•*•****************«*********•*******«****•*****«******«**••***•** 

/THIS ROUTINE RILL CHECK LOCATION 22 THE HARU MARE CONFIG WORD. 
/TO SEE IF THE CONSOLE BIT 3 )400) IS SET IF SET THEN RETURN 
/TO CALL PLUS TWO FO A ACTIVE CDNSOLH PACKAGE AC>0 

/IF NOi SET Then to call plus une for a oeactive console package. 



CHKCLA, 

CLA 

TAD 22 

AND (400 

SNA CLA 

ISZ CHKCLA 

JMP I CHKCLA 



/SEt THE CUTENTA OF LOCATION 22 

/MASK FOR BIT 3 C40B 

/ 

/ACTIVE CONSOLE PACKAGE RETURN 

/CALL PLUS ONE lU FOR ACTIVE 

/OEACTIVE CONSOLE PACKAGE RETURN 

/CALL PLUS TWO 12) 



/CBERR 

/this routine will determine what to du when a cserr is encountered 

/will check if classic systeh, will check c8swit registers. 

/ cserr* jhs xcberr 

/ex, jms xcberr /go to cberr call if not consol 

/ /return is call plus one ac '0000 

/call: used are •chkcla-xcscrlf-xcbswxcsinou-xcbpnt-xcsocta- 



4007 


0000 XCBERR, 






4010 


6002 


lOF 






4011 


3322 


DCA 




ACSAVE 


4012 


6004 


GTF 






4013 


3324 


DCA 




FLSAVE 


4014 


7J01 


HQA 






4015 


3323 


DCA 




MBSAVE 


4016 


7340 


CLA 


CLL 


CMA 


4017 


1207 


TAD 




XCBERR 


4020 


3321 


DCA 




PCSAVE 


4021 


4200 


JMS 




CHKCLA 


4022 


7410 


SKP 






4023 


5263 


JMP 




NTCLAS 


4024 


4776' 


JMS 




CBSET 


4025 


4775' 


JMS 




XCBSW 


4026 


0374 SETUPl, AND 




(0000 


4027 


7640 


SZA 


CLA 




4030 


S255 


JMP 




CBDO10 


4031 


4773' 


JMS 




XCBCRLF 


4032 


4772' 


JMS 




XCBPNT 


4033 


4075 


ERRMES 




4034 


4772' 


JMS 




XCBPNT 



/SAVE THE FLAGS 

/SAVE THE HG 

/SUBTRACT A 1 FOR TRUE LOCATION 

/GET RETTURN LOCATION 

/SAVE ADO OF CBERR CALL 

/CHECK L0C,22 BIT 3 CONSOL BIT 

/ACTIVE CONSOLE PACKAGE 

/NOT CLASSIC SYSTEM 

/GET THE REGISTERS, 

/CHECK SWITCH REG FOR BIT THAT INDICATES 

/NO ERROR MESSAGE 

/MASK FOR BIT FOR NO ERROR PRINTING 

/IF THIS ERROR MESSAGE IS TO ALWAYS 

/BE PRINTEU LEAVE AND VALUE AT 0000 

/SKIP IF BIT IS PRINT ERROR MESSAGE 

/OO NOT PRINT 



/PRINT THE ERROR MESSAGE 
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493! 


4195 




MESPC 




4036 


1321 




TtD 


PC8AVE 


4937 


4771- 




JMS 


XCSOCTA 


4949 


4772' 




JM3 


XCSPNT 


4941 


4119 




HES»C 




4943 


1322 




TtD 


ACSAVE 


4943 


4771- 




jns 


XCSOCTA 


4944 


4772' 




JMS 


XCSPNT 


494; 


4113 




MESHO 




4941) 


1323 




T»0 


MQSAVE 


4947 


4771' 




JMS 


XCSOCTA 


4959 


4772' 




Jns 


XCSPNT 


4951 


4116 




NESFL 




4952 


1324 




TAD 


ftSAVE 


4953 


4771' 




JMS 


XCSOCTA 


4954 


4773- 




JMS 


xcacRir 


4955 


4776' 


C8UU19, 


JMS 


CSGET 


4956 


4775' 




JMS 


XCBSB 


4957 


7619 




SKP CL« 




49(i9 


5273 




JMP 


cssy2 


4961 


4779' 




JMS 


xcaiNo 


496S 


5273 




JMP 


C6BV2 


4963 


4776' 


NTCL'Si 


JMS 


CS6CT 


4964 


4775' 




JMS 


XCSSH 


4965 


7619 




SKP CIA 




4966 


5697 




JMP I 


XCSERR 


4967 


1367 




TAD 


17492 


4979 


3721 




DCA I 


PC5AVE 


4971 


4776' 




JMS 


CSUET 


497S 


5721 




JMP I 


PCSAVe 


4973 


4776' 


C81ir2, 


JMS 


cesET 


4974 


5697 




JMP I 


XCSERR 


4975 


9419 


ERKXtSi 


TEXT 


"DHRKDO 


4976 


2813 








4977 


9494 








4199 


4949 








4191 


9691 








4192 


1114 








4193 


9594 








4194 


4999 








4195 


4949 


MESPC, 


TEXT 


" PCI" 


4196 


2993 








4197 


7299 










4949 


ncatc, 


TEXT 


" ACI" 




9193 










7299 










4949 


NESBU, 


TEXT 


" NQt" 




1521 










7299 










4949 


MESFL, 


TEXT 


" FLI" 




9614 










7299 










7777 


PC6«VEi 


7777 






7777 


ACSAVt, 


7777 





PALIB V142A 22-FEb-T7 
/PRINT TME PC 3TSTEMENT 
/CONVENT 4 DIGIT PC TO ASCII 
/PRINT TME AC MESS 



/PRINT FL 



/GET TME REGISTERS, 

/CHECK SWITCH REGISTER 

/SKIP IF bIT B SET 

/UEAVE 

/GO TO TME INQUIRE ROUTINE 

/LEAVE 

/GET TME RtGISTERS, 

/CHECK PSeuOU SMITCM REGISTER 

/CHECK THE CB8WIT REGISTER 

/SKIP IF HALT 

/NO MALT CONTINUE 

/coot FOR HLT 

/PUT IT IN CALL LOC. 

/EXIT TO CALL AND HALT 
/GET THE REGISTERS 
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4123 


7777 


MQSAVE) 


7777 


4124 


7777 


FLSAVE, 


7777 
SSS 


4167 


7492 






4179 


3435 






4171 


3699 






4172 


3193 






4173 


3623 






4174 


9999 






4175 


3962 






4176 


3424 






4177 


9499 
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/RK«£/NKaL 0I8K roRMlTrER PROSHiH) MD>ll8>anl)KD-D 



P»Ll» Vina* 2i.FeB.77 



leitJ rut t-«2 



piGEi easb 





ttllUll 1 


iee«2«e iiuiiit tun 
Miiiu itmiu tun 




tUUlll 


ttlUltl 










niiiiit 
iiiitttt 


UllllU 

iiiaetn 










ItlttUI 


ittttni 
eseeetn 








111 lltllUl lit 11111 
111 llllllU tttllllt 


luinu 
ititieee 


itttntt 

eeBeent 










iiiitiit 
iiiniit 


UllllU 
Ulltltl 










tUUlll 

nniiti 


lltUItt 

iiieetu 










Ulllllt 

niuiit 


UlUtU 

tteeeeet 










iintttt 
ttttttu 


Ulllltl 
ItlltlU 








111 tttllllt ttiiiiit 
111 tit tun ineaeue 


ttltUll 


ttitiiii 












































111 ttttnii intuit 
111 ttttuil legniiBigt 












111 tttliiil iitiitit 
111 tutilit itttaeug 












111 ttuiiii itiniti 
111 ittniit iittiiit 






J7se 






111 innin iitiiiii 
tit iniiitt tttiueue 


lUllIlt 

veittitt 
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«ee0 

4100 



• 200 
«300 



4400 
4900 



4600 
4700 



S000 
SI00 



S200 

9300 



9400 
9900 



9600 
9700 



6000 
6100 



6200 
6300 



6400 
6900 



6600 
6700 



7000 
7100 



7200 
7300 



7400 
7900 



tllUltt 

ttniiii 



iitnttt 
tuiittt 



IllllUI 

11111000 



tittnii 

00000000 



llltllU 

00000000 



iiittin 

00000000 



ttttuii Itttntt 

00000001 IlllUll 



7600 
7700 
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«B77a 


1S13 


»70a7 


1512 


ACL 


7781 


iCSAVE 


«122 


»DPOTl 


B137 


40P0TJ 


015B 


ADPTl 


1637 


AOPTS 


1600 


ADREG 


Bies 


AERRO 


16190 


AGAIN 


0533 


AILAGN 


0220 


AMOUNT 


0056 


APT8 


1125 


APT8A 


11124 


AUTO10 


0010 


AUTOU 


0011 


SGN 


0200 


BGNaUF 


0055 


BGNTST 


0127 


ByRETR 


3306 


C8BYI 


3030 


C88Y2 


4073 


C6BV] 


3661 


CBBy« 


3315 


C88Y5 


3716 


CaCHAR 


3675 


C8CKP 


3622 


CBCONT 


3745 


ceooi 


3110 


C8D0U 


405S 


C8D0U 


3407 


C8D09 


3633 


C8D03 


3150 


C8004 


3606 


C8D07 


3326 


C8GET 


3424 


C8HANG 


3722 


C8RDPS 


3466 


CSRETD 


3414 


CSRETR 


3335 


C88ET0 


3413 


C85ETS 


3334 


C8SWST 


3545 


CSTMPl 


3621 


CAP 


6007 


CAREG 


0124 


CCNTRl 


1516 


CH»NG 


1463 


CHtNGR 


1477 


CH«R 


0101 


CHECK 


0400 



CHKCLA 


4000 


CHKDAT 


03S3 


CNKOSK 


0337 


CHKER 


1112 


CHKRl 


1007 


CHNPOT 


1517 


CKCOUT 


iesi 


CLDH 


0745 


CtKCNT 


0112 


CLRALL 


4445 


CMREG 


0121 


CNT 


1554 


CNTRtC 


3347 


CNTRLO 


3400 


CNTRLE 


3344 


CNTRLL 


1336 


CNTRLO 


3100 


CNTHLR 


nil 


CNTRL8 


sue 


CNIV4L 


3052 


COUNT 


1553 


CRLF 


4452 


CSAVei 


1514 


C9AVE2 


1515 


DAREG 


0123 


DATCNT 


0111 


DATER 


1103 


OATOK 


1071 


DCLR 


6742 


OLAG 


6743 


OLCA 


6744 


OLDC 


6746 


DL9C 


6740 


DHtN 


6747 


DOCNT 


3047 


DONE 


0250 


OONEA 


3226 


DOPtCK 


10U 


DOSET 


3051 


DRIVNO 


0100 


OUST 


6745 


OSK0t 


0140 


D3K0e 


0151 


DSKIA 


0141 


OSKIB 


0152 


0SK2A 


0142 


09K2S 


0153 


0SK3A 


0143 


D8K3S 


0154 


D$K4A 


0144 


0SK4B 


0155 


D8KSA 


0145 
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DSKSB 


0156 


INHOOE 


3676 




U9K6« 


0148 


lOTB 


1/34 




USK6B 


0157 


lOTl 


0741 




DSK7A 


0147 


20T2 


0746 




D9K7e 


0160 


I0T3 


0714 




OSKCNT 


0105 


10T4 


0705 




DSKP 


6741 


IGT5 


0672 




DSKSKP 


4441 


I0T6 


0727 




DTREG 


0126 


lOTCHN 


4430 




ENDBUF 


2577 


K0003 


0060 




ENOIT 


3542 


K0007 


0062 




ENDTIT 


0424 


K00t0 


1324 




ERHLtB 


0716 


K0017 


0074 




tBMLT2 


0750 


K0040 


0063 




eRHLT3 


0716 


K0077 


1123 




tRHLT4 


0707 


K0100 


1556 




tRMLT5 


0674 


K0177 


1170 




ERHLT6 


0711 


K0200 


0066 




CRnE91 


1734 


K0212 


1226 




ERnE62 


1756 


K0215 


1225 




ERMtS3 


2000 


K0240 


1121 




ERRl 


3516 


K0260 


0067 




ERR«t9 


4075 


K0277 


0065 




ERRO 


0436 


K0316 


1171 




ERROR 


4417 


K0311 


1372 




tRTXl 


1664 


K0400 


0073 




tRT«2 


1675 


K2000 


1527 




tRTXJ 


1705 


K3600 


1126 




tRT«4 


1717 


K3740 


1111 




tXBIT 


0120 


K4 


0061 




txir 


1306 


K4000 


0070 




EXIT* 


1240 


K4100 


1110 




EXTItK 


1551 


K5000 


0667 




FILCNT 


3640 


K6500 


1571 




FILLER 


3637 


K6520 


1620 




FLS4VE 


4124 


K7377 


1173 




FORMAT 


0102 


K7400 


0764 




FRHOSK 


0263 


K7577 


0670 




FROCT 


1227 


K7700 


1122 




FHSTUK 


1056 


K7735 


0071 




G0REG2 


0117 


K7741 


1325 




GETC"! 


1503 


K7760 


0072 




GETOAT 


1256 


K7771 


0557 




GOITA 


3243 


KAERRO 


4426 




GOTOA 


3254 


KCDF 


0075 




GIF 


6004 


KCNT 


1555 




ME0L8T 


0553 


KERRO 


1621 




MEOTAP 


0552 


KILBUF 


4435 




nlGMAO 


0101 


KLBUF 


0752 




MITRK 


2200 


KTICK 


1530 




hOMEMA 


0110 


KTIME 


1557 




INOtXA 


3255 


KNAIT 


1511 
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LOAD 


0711 


LOADD 


4444 


LDCA 


0700 


LDCM 


0720 


LOCHO 


4442 


LOCUR 


4443 


LDSC 


4446 


L0C8ED 


0134 


LOOER 


0654 


LODRl 


0611 


LODTRK 


4431 


LOTRK 


2201 


LDWAO 


0102 


H10 


0077 


M313 


0064 


H4 


0076 


MCNTRl 


1641 


ME81 


2045 


HE82 


2066 


MES3 


2117 


MES4 


2126 


HES5 


2135 


MESA 


3547 


MESAC 


4110 


MESFL 


4116 


MESHAN 


3746 


MESMO 


4113 


MESPAS 


3053 


ME9PC 


4105 


MOVE 


1623 


MQA 


7501 


M8L 


7421 


MQ9AVE 


4123 


MULOSK 


1153 


NEXCHK 


0347 


NEXFRM 


0276 


NOSE I 


3042 


N0TD9K 


0244 


NOTEX 


0536 


NTCLAS 


4063 


NTGD 


0474 


OCTEt 


4490 


PASCNT 


3050 


PCLF 


6662 


PCNTRl 


0547 


PCNTRJ 


esse 


PCNTRJ 


0551 


PCOUNT 


0161 


PCSAVE 


4121 


PNT6UF 


3720 


PRINT 


1312 


PRN 


1252 



PRNTER 


4447 


PSIE 


6665 


PSKE 


6663 


PSKF 


6661 


P5TB 


6664 


PTSIOR 


3116 


QUESl 


0232 


RD8T 


0671 


R09TAT 


4440 


RECAL 


4413 


RECEIV 


4414 


REDD9K 


4412 


REOOA 


3215 


REOTRK 


1000 


RENEXl 


0315 


RENCX2 


0414 


RE8TA 


1425 


RESTER 


1443 


RE8T0R 


1400 


RETRNl 


0544 


Samagn 


0224 


9AVPC 


1622 


SeCNTl 


0106 


SOKP 


0740 


9ETUP1 


4026 


SETUP2 


3025 


SOFT 


0116 


8TAER 


1106 


STAOK 


1041 


9TCNT1 


0107 


8TCNT2 


0110 


STCNT3 


0111 


STRAUT 


0513 


STREG 


0122 


SKITCH 


0057 


TABLA 


3261 


TA8LB 


1271 


TCMKT 


1113 


TCNTRl 


0112 


TCNTR2 


0113 


TCNTR3 


0114 


TCNTR4 


011S 


TCNTR5 


0116 


TEXAO 


1660 


TEXCA 


1656 


TEXCM 


1650 


TEXOA 


1654 


TEXOT 


1662 


TEXENO 


2021 


TEXEX 


1646 


TEXGD 


1644 


TEXPC 


1642 
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TEX51 


1652 


XROST 


0040 




TICK 


4427 


XRDTRK 


0032 




TIME 


4425 


XRES 


0546 




TMPCNT 


3546 


XRESTR 


0033 




TOcr 


1200 


XSOKP 


0041 




TRKCNT 


0104 


XTABLA 


3257 




TSTCHA 


3515 


XTABLB 


3260 




TTYLPT 


3721 


XTEXT 


0545 




T»OCt 


4451 


XTICK 


0027 




TYPE 


4416 


XTIME 


0025 




UPARUW 


1415 


XTOCT 


0051 




UPONt 


1215 


XNAIT 


0034 




KAir 


1127 


XKRTRK 


0031 




HASQ9K 


0242 


XXLDSC 


0046 




"ATMtS 


1451 








NRK9UF 


2200 








KRT08K 


0121 








NRTTRK 


0600 








XAtRRU 


0026 








XAPTe 


0024 








XC8CKP 


3641 








XC8CNT 


3200 








XC8CHL 


3623 








XCStCH 


1663 








XC8EKR 


4007 








XCSING 


1415 








XCSOtT 


1600 








XC8PAS 


3000 








XC8PAU 


3137 








XC8PNT 


3103 








XC8P8W 


1456 








XCBSia 


3062 








XC8ITY 


3072 








XC8TYP 


3677 








XCHANG 


0030 








XCLUK 


0045 








XCRLF 


0052 








XOOLKT 


3712 








XDOSH 


3317 








XENO 


0135 








XERRU 


0017 








XFROCT 


0050 








XHtTKK 


0054 








XKueuF 


0015 








XLDAU 


0044 








XLDCA 


0043 








XLDCM 


0042 








XLDSC 


0713 








XLOTRK 


0093 








XMOVt 


0113 








XPRINT 


0016 








XPRN 


0047 
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